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THE LEADING EDGE IN PRINTERS 

ONE GREAT LINE. ONE GREAT WARRANTY 



Finally, there's one full family of printers that covers every business or word processing application- 
all from C. Itoh, a company known for packing more product into less price-, and all distributed 
exclusively by Leading Edge, a company known For searching out and providing that very thing. 
Which means that one call to one source can get you any printer, any time you need it. for any purpose. 
All backed by a full years* warranty from Leading Edge. ITry that on any other line of printers.) 



THE PRO'S. 

The Prowriters: business printers— and more. The "more" is a dot-matrix process with more dots. It gives you denser, 
correspondence quality copy (as opposed to business quality copy, which looks like a bad job of spray-painting). 
Prowriter: 120 cps. 80 columns dot matrix compressable to 136. 10" carriage. Parallel or serial interface. 
Prowriter 2: Same as Prowriter, except 15" carriage allows full 136 columns in normal print mode. 
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THE STAR. 

The Starwriter F-10. In short lor more precisely, in a sleek 6" high, 30-pound unitl. it gives you more 

of just about everything— except bulk and noise— than any other printer in its price range. Its a 40 cps letter-quality 

daisy -wheel with a bunch of built-in functions to simplify and speed up word processing. 

It plugs into almost any micro on the market, serial or parallel. 
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THE MASTER. 

The Printmaster F-10. Does all the same good stuff as the Starwriter except, at 55 cps. the Master does it faster. 




Dtstril ■■'■ ■■ £ • '■'■■ .".'■- /. by Leadnw Ii<h'i- I'miim t ■■_ Inc.. 225 Turnpike Street. Canton, Massachusetts 
Call- toll-free 1-800-343-6833; or in Massachusetts call colled (617)828-8150. lelex '151-62-1 




VisiCalc® 



See for yourself. 



MAGICAUT-VisiCalc® COMPARISON 

• MAGICALC does everything VisiCalc does 

• MAGICALC does a lot more than VisiCalc 
does 

• MAGICALC does most things faster than 
VisiCalc does 

• MAGICALC does many things a tot easier 
than VisiCalc does 

• MAGICALC loads VisiCalc files 

• MAGICALC cost a whole lot less 

MAGICALC FEATURES 

MAGICALC has: 

• Full compatibility with Apple lie 



• 40-column standard video display 

• 70-column upper- and lower-case video 
display 

• 80-colurnn board video display 

• Automatic support of add-on memory boards 
(up to 51 2K) 

• Individual column widths 

• Protected fields and cells 

• Invisible column 

• Automatic page formatting (worksheets are 
automatically placed on paper) 

• Fully compatible with VisiCalc and DIF files 

• Command compatible with VisiCalc 

• Command compatible with MAGIC 
WINDOW 

• File loading by number 




$149 9- 



5547 sotsumo avenue * north h plyujood, coffomio 91601 * i 

VisiCalc is a revered trademark of VisiCorp. MAGICALC is a trademark of Artsci. Inc. 
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2MHZ 6809 SYSTEMS 

GIMIX offers you a variety to choose from! 

38 MB WINCHESTER SYSTEM $17,498.99 

HARDWARE FEATURES: 

• 2MHz 6809 CPU • DMA Double Density Floppy Disk Controller 

• 512KB Static RAM * Dual 8" DSDD Floppy Disk System 

• 8 RS232C Serial Ports • Dual Winchester Subsystem with 

• 2 Parallel Ports Two19 MB 5V<" Winchester Drives 
SOFTWARE FEATURES: 

• OS-9 LEVEL TWO Multi-User * OS-9 Text Editor 
Operating System • OS-9 Assembler 

• OS-9 Debugger 

19 MB WINCHESTER SYSTEM $8998.09 

HARDWARE FEATURES: 

• 128K Static Ram • 4 RS232C Serial Ports 

• 2MHz 6809 CPU • 1 MB 5V<" Floppy Disk Drive 

• 19 MB 5 1 /4" Winchester DMA Subsystem • DMA Double Density Floppy Disk Controller 
SOFTWARE FEATURES: 

• OS-9 LEVEL TWO Multi-User • OS-9 Debugger 
Operating System • OS-9 Assembler 

• OS-9 Text Editor 

128KB MULTI-USER SYSTEM $6997.39 

HARDWARE FEATURES: 

• 2MHz 6809 CPU • 2 RS232C Serial Ports 

• DMA Double Density Floppy Disk Controller • Dual 8" DSDD Floppy Disk System 

• 128KB Static Ram 

SOFTWARE FEATURES: Your choice of either UniFLEX or OS-9 LEVEL TWO. Both are Unix-like 
Multi-User/Multi-Tasking Operating Systems. 

56KB FLEX/ OS-9 "SWITCHING" SYSTEM $4148.49 

HARDWARE FEATURES: 

• 2MHz 6809 CPU • DMA Double Density Floppy Disk Controller 

• 56K Static Ram * 2 Built-in 5 1 /4" 40tr DSDD Disk Drives 

• 2 RS232C Serial Ports (80 Track DSDD Drive Option . . add $400.00) 
SOFTWARE FEATURES: 

• GMXBUG monitor — FLEX Disk Operating System 

• OS-9 LEVEL ONE Multi-tasking operating system for up to 56K of memory 

WINCHESTER SUBSYSTEMS 

Winchester packages are available for upgrading current GIMIX 6809 systems equipped with DMA controllers, at least one 
floppy disk drive, and running FLEX, OS-9 LEVEL ONE or OS-9 LEVEL TWO. The packages include one or two 19MB (unformat- 
ted) Winchester drives, DMA Hard Disk Interface, and the appropriate software drivers. The Interface can handle two 5V«" 
Winchester Drives, providing Automatic Data Error Detection and Correction: up to 22 bit burst error detection and 1 1 bit burst 
error correction. 

Dual drives can be used together to provide over 30 MBytes of on line storage -- or use one for back-up of the other. (More 
convenient and reliable than tape backup systems. 

#90 includes one 19MBDrive, Interface, and Software $4288.90 

#91 includes two 19MB Drives, Interface, and Software $6688.91 

Contact GIMIX for systems customized to your needs or for more information. 
50 HZ Export Versions Available 



GIMIX Inc. reserves the right to change pricing and product 

specifications at any time without further notice 1 337 WEST 37th PLACE ^^^ 

CHICAGO, ILLINOIS 60609 [ _fl| | |fl 'JC IRC. 

GIMIX* and GHOST® are registered trademarks of GIMIX Inc /Tl 0\ Q97 ^tim 

FLEX and UniFLEX are trademarks ol Technical Systems Consultants Inc. * ' 

0S-9 is a trademark ol Microware Inc. TWX 910-221-4055 1982 GIMIX Inc 
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B=BROKCN CINE 
L=LOA» )CR«N 
)=%AVE SCREEN 



Childhood Dieams is one of a series of 
original oi] paintings by Frank Wyman 
for children's books. The computer in- 
dustry is touching all of us — even 
children. MICRO'S new section, "The 
Learning Center," caters to beginning 
computerists — including children. 
The graphic of a modern "castle" was 
generated by one of the programs 
appearing in the Learning Center 
("Digi-Draft" by Tim Kilby, page 57] . 

Photo and painting by: 
Frank Wyman 
Wyman Art Studio 
Lowell, MA 01852 
617-459-7819 
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ISSN: 0271-9002 



Send subscriptions, change of address, USPS 
Form 3579, requests for back issues and all 
other fulfillment questions to 

MICRO INK 
34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

or call 

617/256-5515 

Telex: 955329 TLX SRVC 

800-227-1617 
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Air mail: 
Europe 
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Printer Feature 

Adding a printer to your computer 
system — or enhancing the capabilities 
of one you already own — will offer you 
versatility, convenience, and power. 
Many of the programs presented here 
expand the graphics, formatting, or 
control capabilities of a variety of 
printers. 

You can make automatic pagination 
and user-selectable margins a part of 
the printer-driver routine; read John 
Vokey's "PRINT Control for Apple 
Printers" (p. 24). Mr. Vokey presents a 
short machine-language subroutine 
that provides formatted output to most 
output devices. Larry Hollibaugh's 
MX-Driver assembly-language program 
("Centronics Printer Driver for Your 
Microcomputer" p. 31) will expand the 
use of your Centronics-compatible 
printer. 

In "A PRINT-USING Routine for 
the Apple" (p. 39), Celestino Monclova 
presents a machine-language routine 
that, when called from BASIC, merges 
two string variables (a mask and a data) 
with the following options: fixed 
decimal points and commas, fixed 
dollar sign and text, asterisk or dollar 
sign, and floating dollar sign. 

If you are using an Apple printer in- 
terface card, you can send only 7-bit 
ASCII code. To find out how to add pro- 
gram control to the eighth bit, read 
Mark Boyd's "A Full Byte for Your 
Apple Printer" (p. 42). 

We also offer a brief tutorial by Fred 
Wallace, "Plotting with the VIC" 
(p. 19), that describes the graphics mode 
available on a VIC-20 equipped with 
the VIC-1515 graphic printer. Mr. 
Wallace includes a BASIC subroutine 
that permits plotting of either a 
mathematical function or a user- 
generated array on a grid with labeled 
axes. 

Robert Paul explains how to utilize 
the open area of OS-65D directory sec- 



tor 1 to include a diskette ID on printed 
directories in "Disk ID for Printed 
Directories" (p. 36). 

If you're looking for a printer, read 
through our Information Sheet (p. 105) 
before you go shopping. It describes the 
10 to 20 most popular printers for the 
computers we cover; major character- 
istics are compared. 

New! The Learning Center 

Now computerists just beginning to 
tap the keyboard can enjoy MICRO, as 
well as sophisticated programmers. 
The Learning Centei provides fun, 
easy-to-key-in programs, with accom- 
panying tutorial text, that teach you 
programming techniques and concepts. 
Among the articles appearing in The 
Learning Centei this month are 
"MICRO Calc for Commodore and 
Apple" by Loren Wright (p. 47). This 
miniature spread-sheet program lets 
you perform a variety of calculations. 
Minor changes are provided for all 
Commodore machines,- Phil Daley of- 
fers an equivalent program for the 
Apple. 

"Digi-Draft" by Tim Kilby (p. 57), a 
drawing program, allows you to con- 
struct images on an Atari GRAPHICS 7 
screen. Learn commands to change col- 
ors, load and save, draw points, lines, 
circles, and rectangles. 

Another entertaining program 
displays messages in large letters across 
your screen. "BANNER: A Display Pro- 
gram for the TRS-80C" by Bryan Chris- 
tiansen (p. 65) also includes powerful 
machine-language loading techniques 
that provide efficient handling of 
machine-language subroutines. 



As Always... 

Don't miss our usual machine- 
specific coverage in Apple Slices, CoCo 
Bits, From Here To Atari, and Pet Vet. 



MICRO 



No. 58 - March 1983 



AVERS 



VINYL PROTECTIVE DISK SLEEVES 



Sfc 



«■/>. 



"0/ 



Moses*?? 

0BCS*f? 
obcS*«2 

DOCS* 80 

DISCS* 6 * 3 
DISCS**?! 



„ iSC gjM» 



Dl 



scSAV ERS 






Utility 



.. . ."-'■■ -' 

COLOR CODE0: Multi-color DiscSavers;' are designed DURABLEVRjgid vinyl coostruetton protects against 

V > » Ipr -easy recognition of individual disk? with your own constant handling to ensure long 'wear and tear. 

color-keyed filing system. (dea| for offiCH_Or.tiQme use. PORTABLE: DiscSavers aretfie only portabiiyjnyt ? ' 

c /i . PR'OTECtlVE: Custom grain vinyl providesadded- - disk sleeves* for use with a single diskette that bear the 



.'. ";/-;■ . _. protection for magnetic disks by guarding against 

cqrrimbri handling Hazards. /"' 

; ■.■'*.;■■■•■■ ■-'■/ '■,■',; ».. - ■ •.'-■,■ ■ 

".- ATTRACTIVE:' DiscSavers, provide a handsome and " 
_ . fj'% .professional method' of single, disk storage and 
\ • enhan(&l.neiqokofyt)iirhard^ 



your valuable software. 



disk sleeves* for use With a single diskette that bear the' 

RockRoy mark of. quality. ■" .*-'■' : ; 

..■■'■"■:'-'- . ■ '• v---" . 
.Contact, ypur Dealer or Distributor. , V , 

"- 7721 E. Gray Roacf- 
. Scottsdale, Arizona 85260 

Computer Proaqcte Distort ^ ' 



DiscSavers is a trademark of RocKHqy Inc. j 
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PRINTER FEATURE 

■1 Q Hi-Res Plotting With the VIC Fred Wallace 

' ' ^ Combine VIC-1515/1525 printer with the VIC-20 for high-resolution graphics 

OA Print Control for APPLE Printers John R. Vokeyand H. Cem Kaner 

^•^ A short subroutine for automatic pagination and user-selectable margins 

o-j Centronics Printer Driver for Your 

Microcomputer Larry R. Hollibaugh 

An MX-Driver assembly-language program 

og Disk ID for Printed OSI Directories Robert a. Paul 

^^ Put unused disk space to good use 

on APPLE PRINT-USING Routine Ceiestino r. Monciova 

*J^ A machine-language routine for formatted output 

An A Full Byte for Your APPLE Printer MarkJ. Boyd 

^^ Greater control using the eighth bit 

THE LEARNING CENTER 

a j MICRO Calc for Commodore and APPLE Loren Wright 

^ ' A miniature electronic spreadsheet 

C7 Digi-Draft for Atari 400/800 Tim Kiiby 

w ' ' A sophisticated drawing program 

g-j The Computer Revolution Reaches 

the Community Emmalyn H. Bentley 

A look at a new microcomputing learning center 

gc BANNER: A Display Program for 

the Color Computer Bryan Christiansen 

Display a variety of messages in large type on your screen 

■7Q Glossary of Computer Terms 

ARTICLES 

70 68000 BCD and Privileged Instructions Joe Hootman 

' ^ Our 68000 series continues 

77 A Versatile Hi-Res Graphics Routine for the APPLE Adam p. King 
' ' Design multicolored shapes 

00 APPLE Disk Track Copy for 

Non-Matching Numbers Roland e. Guiibauit 

Increase your disk library's efficiency 

oc It's All Relative, Part 4 

Using Commodore's Relative Records Jim strasma 

Read and write relative disk files 
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ASHTONTATE 

dBASEII $529.00 

BOTTOM LINE STRATEGIST 279.00 

C. ITOH 

PROWRITER PARALLEL 489.00 

F-1 55 1 799.00 

F-10 PARALLEL /SERIAL CALL 

CRAPPLER INTERFACE 140.50 

PROWRITER II 789.00 

CALIFORNIA COMPUTER SYSTEMS 

ASYNCHRONOUS INTERFACE $1 29.00 

SYNCHRONOUS INTERFACE 1 49.00 

CALENDAR CLOCK 105.00 

RS232 INTERFACE 1 24.00 

PROGRAMMABLE TIMER FOR APPLE . . . 99.00 
COMSHARE TARGET MARKETING 

PLANNER CALC $79.00 

TARGET FINANCIAL MODELING 249.00 

CONTINENTAL SOFTWARE 

HOME ACCOUNTANT FOR APPLE $69.00 

HOME ACCOUNTANT FOR IBM 1 29.00 

DICTRONICS, INC. 
RANDOM HOUSE ELECT. THESAURUS $129.00 

PROOF READER 50.00 

EAGLE 

MONEY DECISIONS $1 19.00 

FORCED 

MATH* $99.00 

FOX&GELLER 

dUTIL $68.00 

OUICKCODE FOR dBASE II 249.00 

OUICKSCREEN 1 29.00 



CALL TOLL-FREE 
1-800-523-9511 

IN PENNSYLVANIA 
1-215-868-8219 



T/ MAKER COMPANY 

T/MAKER III $249.00 

VIDEX 

ENHANCER II 1 19.00 

VIDEX KEYBOARD ENHANCER 105.00 

VIDEX VIDEOTERM FOR APPLE II 299.00 

VISICORP 

DESKTOP PLAN APPLE II $1 84.00 

DESKTOP PLAN IBM 228.00 

VISICALC 1 84.00 

VISICALC ADVANCED VERSION 339.00 

VISICALC BUSINESS FORECASTING 89.00 

VISIFILE APPLE II /IBM CALL 

VISILINK 184.00 

VISIPLOT FOR APPLE 1 59.00 

VISITREND/VISIPLOT 228.00 

IBM IS A TRADEMARK OF INTERNATIONAL BUSINESS MACHINE, 
APPLE IS A REGISTERED TRADEMARK OF APPLE COMPUTERS, 
INC., CROSSTALK IS A TRADEMARK OF MICROSTUFF. INFOSTAR 
IS A TRADEMARK OF MICROPRO. PRICES, SPECIFICATIONS 
AND AVAILIBILITY SUBJECT TO CHANCE WITHOUT NOTICE. 
NOT ALL PROGRAMS AVAILABLE IN ALL FORMATS. PLEASE 
CALL FOR ADDITIONAL PRODUCT INFORMATION. 

MICROHOUSE 

P.O. Box 499 / 1 444 Linden street 
Department 302 
Bethlehem, pa 18016 
Dealers inquiries welcome! 



INTEGRAL DATA SYSTEMS 

IDS MICROPRISM 480 PRINTER $599.00 

IDS PRISM-1 32 PRINTER 11 99.00 

IDS PRISM-80 PRINTER 879.00 

INTERACTIVE STRUCTURES 

PKASSO $145.00 

INNOVATIVE SOFTWARE, INC. 

TIMID $369.00 

GRAPHMAGIC 69.00 

MATHEMAGIC 79.00 

INFORMATION UNLIMITED SYSTEMS 

EASYFILER $349.00 

EASYSPELLER 159.00 

EASYWRITERII 279.00 

MAXELL 

FD-1 Or FH-1 -32 <8" SINGLE SIDED) $41 .50 

FD-2 (8 "DOUBLE SIDED) 48.95 

MD-1 Or MH-1 <5%" SINGLE SIDED) 31 .25 

MD-2 Or MH-2 (5%" DOUBLE SIDED) 47.1 

MICROPRO 

CALCSTAR $99.00 

DATASTAR 194.00 

MAILMERGE 139.00 

WORDSTAR 279.00 

WORDSTAR /MAILMERGE 369.00 

MICROSOFT 

128KRAMFORIBMPC $599.00 

BASIC COMPILER FOR APPLE II 31 5.00 

128KRAMCARD 599.00 

192KRAMCARD 699.00 

256KRAMCARD 799.00 

64KRAMCARD 399.00 

MICROSOFT Z80 PREMIUM PACK 619.75 

MICROSOFT Z80 SOFTCARD 279.00 

MULTIPLAN 229.00 

TASC APPLESOFT COMPILER 1 49.00 

NORTH AMERICAN BUSINESS SYSTEMS 
THE ANSWER $249.00 

PEACHTREE 

ACCOUNTS PAYABLE $375.00 

ACCOUNTS RECEIVABLE 375.00 

GENERAL LEDGER 375.00 

INVENTORY 375.00 

PAYROLL 187.50 

SALES INVOICING 375.00 

PERFECT SOFTWARE 

PERFECT CALC $139.00 

PERFECT FILER 279.00 

PERFECT SPELLER 139.00 

PERFECT WRITER 239.00 

OUADRAM 

1 28K MEMORY EXPANSION $380.00 

192K MEMORY EXPANSION 475.00 

64K MEMORY EXPANSION 280.00 

64K MEMORY UPGRADE 129.00 

MICROFAZERS ALL MODELS CALL 

0UADBOARD64K 499.00 

OUADBOARD128K 649.00 

OUADBOARD 1 92K 749.00 

OUADBOARD 256K 829.00 

CONTROLLER FOR ELITE I $99.00 

RANAELITEI 379.00 

RANA ELITE II 559.00 

RANA ELITE III 729.00 

SMITH-CORONA 
SMITH-CORONA TP-1 $599.00 

SUPERCALC BY SORCIM $209.00 

SPELLGUARD 189.00 
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Paint on your computer in over 1 00 
colors with 96 different brushes! 
Magnify mode for precision, touch- 
ups; mirror image; color reverses; move 
any part of picture anywhere; packing 
routine for increased disk storage of 
any standard graphics screen! Can he 
used by anyone. Paddle/joysfck S39.95, 
Apple Graphics Tablet $69.95. 
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GRAPHICS 
SYSTEM H 

liy.MjirtLlVlii.naki 

Everything needed for computer-aided 
design. liasily draw and design in two 
or three dimensions, mix text and 
graphics freely, define shapes and 
create typefaces with unique character 
generator. Great tor presentations, 
videotape displays, storing designs on 
disks, graphics for other programs, or 
just for experimentation . 1 'addle/ joy stick 
$69.95, Apple Graphics Tablet $11 9.95. 
50 additional fonts, $ 19.95. 



tor the P 



rogrammer 



SWM 



PcnSUin 50 additional fonts. $ i 9.95. 

S0ftW3T6 830 4th Avenue, Geneva. Illinois 60134 (312)232-198 

All Penguin .uipJiL.iriinrn products tire now nn unprotected disks foe your cbKtffcrracncc \y.y-\r I 



magician 

by Mnrk [Ylt:ji,ki. David Lubar, ajidOirts Jathtinwan 

Add fast, smooth animation and hund- 
reds of pictures to your programs. 
Create animated shapes and draw- 
paths; have up to 32 independently 
controlled figures on screen. Use a 
special palette of over 100 colors to 
create pictures and objects in highly 
compressed format. Easy to use, and 
includes a special programming tu- 
torial. Has saved months in develop- 
ment time for several games a I read v on 
the market. Paddle/joystick S59.95, 
Apple Graphics Tablet S69.95. 
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Editorial 



"The more things change, 

the more they... uh... change!" 



Everyone knows that the way that old 
French proverb is supposed to end is, 
"...the more they stay the same." 

But the fact is that's never been true 
at MICRO magazine. Change is change. 
It's accepted because it's necessary. 
The microcomputer industry itself is 
far too dynamic to tolerate anything 
static for very long. 

And, of course, MICRO has been 
around for a while; almost as long as 
the industry itself (MICRO is now in 
its sixth publishing year), which means 
it's seen its share of changes. 

In that regard, however, our March 
1983 issue is a benchmark; you'd have 
to go back a long, long way before you 
found an issue of MICRO that contained 
so many changes (and the promise of 
even more to come) . 

Start with this month's cover. 
Maybe you noticed the image inside 
the screen is a painting, not a 
photograph. A small change, but an im- 
portant one. The work is by Frank 
Wyman, an exciting artist who's agreed 
to lend his talents to MICRO on a 
regular basis. 

The cover art serves to introduce a 
brand new section in MICRO, "The 
Learning Center," but don't be mislead 
by the youngsters it depicts. This new 
section is definitely not "kid's stuff." 
It's MICRO material presented just a 
little bit differently — more clearly 
spelled out, with some information 
gaps filled in. 

The new section is more tutorial 
and, generally speaking, plans are to 
keep its focus on programming infor- 
mation for the Atari 400/800, Commo- 
dore 64 and VIC-20, TRS-80C, and 
Apple. But you may find similar infor- 
mation on other systems like the 
TI-99/4A and Timex/Sinclair from 
time to time. 

We see this section as a way of 
breaking new editorial ground; we're 



taking MICRO'S approach to com- 
puters and programming and applying 
it to these relatively new systems. 

Think about that for a second. The 
possibilities are truly intriguing. The 
"Visicalc-type" program in this 
premier edition of "The Learning 
Center" is a good example. 

Another alteration you might notice 
in this issue is the new page of Reader 
Service Cards we've bound into it. The 
top two are self-explanatory. The card 
on the bottom is designed to be used 
with the individual advertisements 
you'll find in this issue. There's a 
number on or near each ad. If you want 
to receive more information about a 
product you see advertised in this 
issue, just circle the right number, fill 
in your mailing information, and drop 
the card in the mail. 

Throughout this issue and in issues 
to come, you'll find MICRO using 
more color than in the past. We believe 
that color adds an important dimension 
to the magazine. For example, in a wir- 
ing diagram color can clarify and 
deliver the information far more effi- 
ciently than the written word. It is our 
hope to use color extensively. in future 
issues of MICRO — for diagrams, col- 
ored screen shots of running programs, 
and even for its pure cosmetic effect in 
feature articles. 

So, what we have here in the March 
1983 issue of MICRO magazine is the 
beginning of a new look, a new section, 
and a new service. A fair amount of in- 
novation, I'd say, for a single issue. 

April, of course, is another story.... 

Oh yes, one more thing. I'd like to 
introduce myself — MICRO'S new 
publisher. 
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Attache-style cases for carrying and pro- 
tecting your complete computer set-up: 
Accommodates equipment in a fully oper- 
ational configuration. Never a need to 
remove equipment from case. Simply, 
remove lid, connect power, and operate. 

AP101 Apple II with Single Drive $109 
API 02 Apple tt with Two Disk 

Drives 119 
AP103 Apple II, 9 Inch Monitor & 

TWO Drives 129 
AP104 Apple III, Two Drives & 

Silenrype Printer 139 
AP105 13" Monitor with 

Accessories 99 

AP106 AMDEK Color Monitor 119 
RS201 TRS-80 Model I, Expansion 

Unit & Drives 109 

P.S204 TRS-80 Model III 129 
AT301 ATARI Computers with 

Peripherals 109 
P402 Centronics 730/737 & 

Radio Shack Printer 89 

P403 Epson MX70/80 or 

Microlfne82A 89 

P404 Epson MX100 Printer 99 

P40S IDS 560 or Prism 

132 Printer 109 
P406 iter 

F-10 Printer 119 
P407 Okldata Microline 

83A or 84 Printer 99 

P408 Prowrtter 2 Printer 99 

P409 Prowrtter (Apple Dot Matrix) 

Printer 89 

IB501 IBM Personal Computer 129 
1B502 IBM Monitor 99 

HP601 HP41 with Accessories 99 

CM703 Commodore Model 64 

with Drives 119 
CM704 Commodore Model 64 

wlthDataset 109 

NS010 North Star Advantage 1 39 
CC80 Matching Attache Case (5") 85 
CC90 Matching Attache Case <3") 75 
CC91 Matching Accessory Case 95 
CC92 5.25" Diskette Case 49 

compuTcr case company 

5650 Indian Mound Court 

Columbus, Ohio 43213 

(614) 868-9464 

CALL TOLL FREE 
800-848-7548 
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CoCo Bits 



By John Steiner 



In my January column (MICRO 56:92) I 
mentioned the TDP 100, a Color Com- 
puter built by Radio Shack for distribu- 
tion through other dealers. This 
month's column was written using my 
new TDP 100 with disk Scripsit. The 
System 100 computer is presently 
available in stock configuration as a 
16K computer with either standard or 
Extended BASIC. In addition, it is . 
available from some locations as a 
32/64K model. Retail prices are com- 
parable to Radio Shack prices. My 
machine is equipped with the 64K 
RAM mode modification provided by 
Computerware, Inc. As I become more 
adept at using the 64K capacity, I will 
pass the information along. 

Technically, the computer is 
software-compatible with the TRS-80 
Color Computer. The circuit board, 
however, is altogether different in 
layout; the familiar components are 
there but in different locations. This 
may cause problems with hardware 
accessories built for insertion into 
the computer. 

On the "E" board model TRS-80, 
memory jumpers are labeled 16K and 
32K. On the 100 model, they are marked 
16K and 64K. Does this indicate a 
possible marketing change? Making a 
64K machine available would cost lit- 
tle, yet provide an extra sale point. 

The TDP 100 comes with a white 
case, built slightly higher than the 
TRS-80. It has long cooling slots in the 
back of the cabinet into which a loose 
wire end or coin might easily slide. 
When my warranty expires, I will prob- 
ably glue some nylon netting to the 
underside of the cabinet to forestall 
any accidents. 

I have noticed that the colors 
displayed on the screen are slightly dif- 
ferent from my other machine. Ad- 
justing the hue control on the TV does 
not restore the colors to those with 
which I am familiar. I don't know if 
there is a difference in the color cir- 



cuitry, or if my sample happens to be 
adjusted differently. Despite these 
minor problems, my impressions of the 
•computer have been favorable so far. 

While on the subject of CoCo 
"clones," there are other computers 
available or in the works. In England, 
the Dragon is similar to CoCo, 
although it is not completely compati- 
ble with either hardware or software. A 
Japanese company is making a com- 
patible computer that probably will be 
•available by the time you read this. 
There are rumors of still another com- 
patible machine, but I have no informa- 
tion on that. There should be no short- 
age of software for CoCo. 

I received a letter from Maury Mead 
asking about the Supercharger board 
available from Spectral Associates. 
This board accesses map type 1, the all 
RAM mode, without modifying the 
computer. He would like to know if the 
board will work with Frank Hogg's 
FLEX. If you have any information on 
this, please let me know. 

Ken Christiansen of Fargo, North 
Dakota, provides the following infor- 
mation regarding tape ASCII files. If 
you have an I/O error in a tape ASCII 
file, or if you have accidentally re- 
corded over the header, there is a way 
to recover at least some of the data. 
You can experiment by loading a pro- 
gram and resaving it using the ,A op- 
tion. CSAVE "filename", A saves the 
program in ASCII format rather than 
tokenizing the keywords. As the tape is 
being written, you will notice that it 
contains blocks of data. Watch the 
record indicator; you will see the 
spindles actually stop turning between 
the blocks. That is the key to recover- 
ing the data. 

If you accidentally record over a file 
header, trying to load the information 
only results in an I/O error message. 
Put in a tape that contains a valid file 
(its filename is unimportant) and begin 
the loading process, watching the 
record indicator and tape spindles. 
When the recorder stops, immediately 
pull out the earphone connector cable. 
The computer will not hear the rest of 
the incoming data. Now you can stop 



the recorder and reload your damaged 
file. Disconnect the motor remote plug 
and position the tape to the beginning 
of the file. Press PLAY and listen as the 
file is being read. There will be a slight 
gap between data blocks. When you 
first note the silence in the gap, quickly 
reinsert the earphone plug. When the 
next block starts, the computer will ac- 
cept it as a continuation of the previous 
file. At this point you can use a text 
editor, or possibly your file program 
itself, to edit out the undesired infor- 
mation from the first file block. This 
method also erases any data contained 
in the first block. 

You can restore program files saved 
in ASCII format that have an I/O error 
in the center of the file. CLOAD the file 
and count the number of blocks until 
the I/O message appears. Next, use 
CLOAD to bring in the file again, 
counting the incoming blocks. When 
you reach the block number just before 
the damaged block, pull out the ear- 
phone plug. Using the technique de- 
scribed earlier, skip over the damaged 
block. When that block is finished, 
quickly plug in the earphone cable. The 
program will continue loading. You 
will have to reconstruct only the data 
in the damaged block. Though I 
haven't done much experimenting 
with the technique, I was able to merge 
two programs together. 

I have some more memory loca- 
tions and functions for you this month. 
The start address of a BASIC program is 
located in memory locations 25 and 26. 
The end address is stored in locations 
27 and 28. An interface with a 
machine-language routine could be 
done easily with this information. You 
can CSAVEM the BASIC program, 
along with a machine-language driver. 
The driver could auto-execute and do a 
JMP to $AE75, the start address of the 
RUN routine. This procedure creates 
an auto-executing BASIC program. 

You may contact John at 508 Fourth Ave., 
N.W., Riverside, ND 58078. 

JMCftO 
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NEW FROM D & N MICRO PRODUCTS, INC. 




MICRO-80 COMPUTER 



Z80A CPU with 4MHz clock and CP/M 2.2 
operating system. 64K of low power static 
RAM. Calendar real time clock. Centronics 
type parallel printer interface. Serial inter- 
face for terminal communications, dip 
switch baud rates of 150 to 9600. 4 " cooling 
fan with air intake on back of computer and 
discharge through ventilation in the bot- 
tom. No holes on computer top or side for 
entry of foreign object. Two 8" single or 
double sided floppy disk drives. IBM single 
density 3740 format for 243K of storage on 
each drive. Using double density with 1K 
sectors 608K of storage is available on a 
single sided drive or 1.2 meg on a double 
sided drive. Satin finish extruded 



Microsoft 




Basic-80 


$289 


Basic Compiler 


$329 


Fortran-80 


$410 


Cobol-80 


$574 


Macro-80 


$175 


Edit-80 


$105 


MuSimp/MuMath 


$224 


MuLisp-80 


$174 



Software available in IBM single density 8" 

Digital Research 

PU1-80 $459 

Mac $ 85 

Sid $ 78 

Z-Sid $ 95 

CBasic-2 $110 

Tex $ 90 

DeSpool $ 50 
Ashton-Tate 

dBase II $595 



aluminum with vinyl woodgrain decorative 
finish. 8 slot backplane for expansion. 48 
pin buss is compatible with most OSI 
boards. Uses all standard IBM format CP/M 
software. 

Model 80-1 200 $2995 

2 8" single sided drives, 1.2 meg of 
storage 
Model 80-2400 $3495 

2 8" double sided drives, 2.4 meg of 

storage 
Option 001 $ 95 

Serial printer port, dip switch baud rate 

settings 

format. 

Micropro 

Wordstar $299 

Mail-Merge $109 

Spellstar $175 

Super Sort I $195 
Pascal 

Pascal/MT + $429 

Pascal Z $349 

Pascal M $355 



Convert almost any static memory OSI machine to CP/M® with the D & N-80 CPU Board. 



Z80A CPU with 4MHz clock. 2716 EPROM 
with monitor and bootstrap loader. RS-232 
serial interface for terminal communica- 
tions or use as a serial printer interface in a 
VIDEO system. Disk controller is an Intel 
8272 chip to provide single or double densi- 
ty disk format. 243K single density or 608K 
double density of disk storage on a single 
sided 8" drive. A double sided drive pro- 
vides 1.2 meg of storage. DMA used with 
disk controller to unload CPU during block 
transfers from the disk drives. Optional 
Centronics type parallel printer port com- 



plete with 10 ft. cable. Optional Real Time 
Calendar Clock may be set or read using 
'CALL' function in high level languages. 
Power requirements are only 5 volts at 1.4 
amps. Available with WORDSTAR for serial 
terminal systems. 



1 SMI 

Til 




INCLUDES CPM 2.2 




D & N-80 serial 


$695 


D & N-80 serial w/Wordstar 


$870 


D& N-80 video 


$695 


Option001 


$ 80 




parallel printer and real time 
calendar clock 



D & N-80 CPU BOARD 



OTHER OSI COMPATIBLE HARDWARE 



IOCA10X Serial Printer Port $125 

Compatible with OS-65U and OS-65D soft- 
ware 

IO-CA9 Parallel Printer Port $175 

Centronics standard parallel printer inter- 
face with 10 ft. flat cable 
BP-580 8 Slot Backplane $ 47 

Assembled 8 slot backplane for OSI 48 pin 
buss 

24MEM-CM9 $380 24MEM-CM9F $530 
16MEMCM9 $300 16MEM-CM9F $450 
8MEM-CM9 $210 8MEM-CM9F $360 
BMEM-CM9F $ 50 FL470 $180 

24K memory/floppy controjler card sup- 
ports up to 24K of 2114 memory chips and 
an OSI type floppy disk controller. 
Available fully assembled and tested with 
8, 16, or 24K of memory, with floppy con- 
troller (F). Controller supports 2 drives. 
Needs separated clock and data inputs. 
Available Bare (BMEM-CM9F) or controller 
only (FL-470). Ideal way to upgrade 
cassette based system 



C1P-EXP Expansion Interface $65 

Expansion for C1 P 600 or 610 board to the 
OSI 48 pin buss. Requires one slot in 
backplane. Use with BP-580 backplane 
BIO-1600BarelOcard $ 50 

Supports 8K of memory, 2 16 bit parallel 
ports may be used as printer interfaces. 5 
RS-232 serial ports, with manual and Molex 
connectors 

DSKSW Disk Switch $ 29 

Extends life of drive and media. Shuts off 
minifloppy spindle motor when system is 
not accessing the drive. Complete KIT and 
manual 

D & N Micro Products, Inc 

3684 N.Wells St. 

Fort Wayne, Ind. 46808 

(219)485-6414 






TERMS $2.50 shipping, Foreign orders add 15%. 
Indiana residents add 4% sales tax. 



Disk Drives and Cables 
8 "ShugartSA801 single sided $395 

8 "ShugartSA851 double sided $585 

FLC-66ft.cablefromD&NorOSI $ 69 

controller to 8" disk drive 
5 1i4"MPIB51 with cable, power $450 

supply and cabinet 
FLC-51/48ft.cableforconnection $ 75 

to 5 1/4 drive and D & N or OSI 

controller, with data separator and 

disk switch 
Okldata Mlcrollne Printers 
ML 82A Dot Matrix Printer $534 

1 20 CPS, 80/1 20 columns, 9.5 " paper width, 
friction or pin feed 

ML83ASameas82Aexcept $895 

16" paper width, 132/232 columns with 
tractor feed 

ML84Sameas82Aexcept200CPS, $1152 
16" paper width, 132/232 columns, 2K buf- 
fer, dot addressable graphics, with tractor 
feed 
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From Here To Atari 



By Paul S. Swanson 



The recently announced Atari 1200 
computer should be available soon at a 
suggested retail price of $899.00. The 
significant differences between it and 
the 400 and 800 computers include 64K 
memory, more function keys, and 
changes in the operating system. 

The operating system of the Atari 
1200 supports four more graphics 
modes. These modes are instruction 
register modes 4, 5, C, and E. IR modes 
4 and 5 are character graphics modes, 
which allow characters to be formed 
using bit pairs as color register 
references. IR mode 4 uses one scan 
line per character row and mode 5 uses 
two. Most of the reference materials I 
have claim that these are four-color 
modes, and it is true that you can have 
only four colors in each character on 
the screen, but they are actually five- 
color modes . The colors normally origi- 
nate from registers 4 (background), 0, 
1, and 2, but if you PRINT the character 
in inverse video the color that would 
have been from register 2 will be taken 
instead from register 3. 

IR modes C and E are both map 
modes. Mode C is a two-color mode 
using 160 dots per line; each mode line 
is a single scan line. Mode E is like OS 
mode 7 (which is IR mode D) except it 
has twice the vertical resolution, using 
one scan line per mode line instead of 
two. These new modes can be declared 
with GRAPHICS statements from 
BASIC as modes 12 through 15. 

There are only 14 modes available 
in the Atari hardware (GTIA modes are 
actually all versions of mode 8). The 
Atari 1200 operating system supports 
all but the IR mode 3, a special 
character mode that supports lower- 
case descenders. It has ten scan lines 
per character, allowing you to use all 
eight in the character set because the 
other two are automatically blanked. 



IR mode 3 is the only mode that I have 
not found any reason to implement and 
can't recall seeing any programs that 
use it. If you want to implement IR 
mode 3 you need a complete custom 
character set. It is fairly simple to alter 
a mode display list to use IR mode 3. 

The Atari 1200 has only two joy- 
stick ports, using the locations of 
PORTA (PORTB doesn't exist). The 
new arrangement of the keyboard 
makes more sense. The BREAK key is 
no longer on the keyboard next to 
BACK S, which should eliminate unin- 
tentional BREAKS while you are trying 
to run your programs. 

The new function keys, as well as 
most of the keys on the keyboard, are 
programmable. There are three 64-byte 
maps in memory that define the code 
for the key alone, SHIFT plus the key, 
and CTRL plus the key. 

Like the Atari 400, the Atari 1200 
has only one cartridge slot. Some third- 
party cartridges will not work on the 
1200 because there is a slight difference 
in the physical dimensions of the slot, 
but the Atari cartridges will work fine. 

Except for situations where the soft- 
ware calls for game controllers in ports 
3 and 4 and for cartridges in the right 
slot, the 1200 should be fully upwards 
compatible as far as software. If you 
obeyed the restrictions outlined in the 
operating system manual instead of 
looking for ways to "cheat" in the 
operating system listing, your software 
should work on the 1200. 

Restoring Registers 

The vertical blank interrupt routine 
is in two parts. The first part updates 
system clocks and the second part 
shadows the hardware registers. The 
second part, referred to as the deferred 
vertical blank interrupt routine, is easily 
disabled — just POKE 66,1. 

Some interesting effects can be pro- 
duced by playing with this feature. For 
example, instead of watching a screen 
fill up as the program draws it, you can 
blank it out or put some other message 
on it, then POKE 66,0 and your com- 



pleted screen instantly appears, fust 
follow these simple steps: 

1. POKE 66,1 to disable the deferred 
vertical blank interrupt routine. 

2. POKE 54272,0 to blank out the 
screen, or set up a display list and a 
screen somewhere in memory that is 
not used by the OS screen and POKE 
the display list pointers into 54274 flo) 
and 54275 (hi). POKE color and other 
information directly into the hardware 
registers — not the shadow registers. 

3. Use the standard BASIC statements 
(or the shadow registers in machine 
language) to set up the next screen. Do 
not use hardware registers directly. 

4. POKE 66,0 and your new screen will 
immediately appear on the television. 

Normally, you do not need to set 
the address for the Jump on Vertical 
Blank (JVB) instruction because the 
shadowing restarts the display list from 
the pointers in the shadow registers. If 
you disable the deferred VBI routine, 
you must supply the address or ANTIC 
will get lost in memory and not give 
you the interim display you set up. 

If there are many computations and 
screen commands required to complete 
the final screen, you will probably want 
to supply the display list and screen so 
that there is an interim screen showing 
during the computations. Remember 
that DMA (Direct Memory Access) can 
steal up to 30% of your processing 
time. If you make the interim screen 
simple, you limit the DMA substan- 
tially. One or two lines of IR mode 6 or 
7 (OS modes 1 and 2) instead of a full 
graphics or text screen will not steal 
many cycles from your computations. 

There are other ways to shut off the 
vertical blanking. You can write directly 
to the hardware register NMIEN at 
54286 (write a zero), but that stops the 
entire routine and the clocks will also 
stop. If you do this, write a 64 to 54286 
to reenable the routine. Using location 
66 (called CRITIC) does not stop the 
system clock. 

What happens in the above pro- 
cedure is that shadowing is temporarily 
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suspended. This means that you can 
modify the normally shadowed hard- 
ware registers in any way you want to 
get any interim effect you need, then 
restore all of them to the values you set 
up for the next screen by a POKE 66,0. 
All of the hardware registers are up- 
dated during a vertical blank period, so 
the next television frame contains your 
new screen. You do need your own dis- 
play list and screen area because your 
GRAPHICS, PLOT, DRAWTO, and 
PRINT statements will still change the 
memory area that the operating system 
"thinks" the screen occupies. SET- 
COLOR, as well as SOUND and a few 
other statements, write to shadow 
registers, so they simply set up the 
shadow registers for the new screen 
without affecting the current screen. 



Compatibility Note 

The Commodore 64 has several 
features that are similar to those found 
on the Atari. One external feature is the 
pair of control ports. The 64 has two 
jacks that are pin-compatibile with the 
Atari controller jacks, so any device set 
up for the Commodore 64 control ports 
will probably work without alteration 
on the Atari controller jacks. Commo- 
dore's PORTA and PORTB are not the 
same as the Atari PORTA and PORTB, 
so you will have to reshuffle the soft- 
ware a little. I recently had my Atari 
computer "talking" to a Commodore 
64 through these controller ports and 
the differences were mainly the method 
of setting up the ports for mixed input 
and output and the memory location of 
the ports themselves. 



Next Month 

In the interest of supporting the new 
operating system modes of the 1200 
without abandoning the 400 and 800, I 
will review setting up character sets for 
IR modes 4 and 5. The information will 
be compatible with the Atari 400 and 
800. If you want to implement it on the 
1200, you can either do it the same way 
or take advantage of the OS support, 
which will simplify your program in a 
few places. 



If you have any topics that you 
would like discussed in this column, 
write me at 97 Jackson Street, Cam- 
bridge, MA 02140. 

JNCRO 



VISA 



RAM 

For ATARI 
M RAM BOARD FOR THE 400 

with Lifetime Warranty 

• Highest quality available 

• Reduces power consumption 

• Reduces heat 

48K Board <4oo> $150 
32K Board wo/soo) $ 90 
16K Board ( 80 °) $ 60 

FREE SHIPPING ANYWHERE IN U.S.A. 

Intec 

Peripherals 
Corp 

906 E. Highland Ave. 
_ San Bernardino, CA 92404 

(714)881-1533 'Qft 



ATARI, 400, 800 are Trademarks of ATARI, Inc. 




"THE ULTIMATE TERMINAL PACKAGE" 

FOR STANDARD APPLE DOS! 

Send ANY size or type of file: TEXT (even Random!), BINARY, 
APPLESOFT and INTEGER with complete error checking. 
• Extremely enhanced terminal emulation system supporting 
baud rates up to 9600 baud! • Up to 26 macro libraries - 
each containing complete operational parameters, along 
with the usual telephone numbers and macro strings! 

AFFORDABLY PRICED AT $129.95 

soutnujesteRn data svstems" 

RO. Box 582-M • Santee, California 92Q71 • 619/562-3221 
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$2 Lower-Case Fix for the 

Axiom 801 P by Louis F. Sander 

Short Subjects Raising Numbers to a Power 

With Pascal by Robert D. Walker 



$2 Lower-Case Fix 
for the Axiom 801 P 

Louis F. Sander, 153 Mayer Dr., 
Pittsburgh, PA 15237 



The Axiom 80 IP was one of the few 
printers with built-in PET graphics and 
became a popular companion to the 
original PET computer. Today, since 
little else in its price range can produce 
such excellent listings and graphics, 
the 80 IP is still widely used. But using 
it with late-model PETs creates a prob- 
lem: with any but original ROMs, the 
printer reverses upper- and lower-case 
characters when it is in lower-case 
mode. Refer to figure 1 as you read my 
description of the $2.00 add-on circuit 
that corrects this problem. 

With SI in the NORM position, the 
printer's function is unmodified. But 
when SI is flipped to TEXT, the blocks 
of characters with decimal codes 
64-127 and 192-255 will be swapped 
(e.g., a CHR$(64) will print as a 
CHR$(192], a CHR$(192] as a 
CHR$(64), etc.). With the printer in 
graphics mode this creates a nightmare, 
but in lower-case mode, the upper- and 
lower-case alphabets are put where 
they belong. As an unwanted side ef- 
fect, six keyboard-generated characters 
will now print incorrectly, but they are 
rarely used in actual text. (They are the 
square brackets, at sign, backslash, up 
and left arrows.) 

Construction of the add-on circuit 
is simple and noncritical. All five con- 
nections to the printer can be made 
where the 36-pin printer cable connec- 
tor mounts to the green circuit board. 
You can break wire XX by gently 
desoldering pin 9 from the board, and 
holding it out of the way with a drop of 
epoxy. To keep things small, I glued 
the 7400 chip to the side of the toggle 
switch and soldered wires directly to 
the pins, mounting the switch in a hole 
in the side of the printer. 

Once the circuit is in place, turn SI 
to NORM and run the short program 




TO PRINTER PC BOARD 



1. HEAVY LINES ARE ORIGINAL PRINTER WIRING. 

2. EXCLUSIVE-OR GATE CIRCUIT IS FROM RADIO 
SHACK ENGINEERS NOTEBOOK, 1980 EDITION. 
PAGE 93. 

1 IN TEXT MOOE WHENEVER BIT 8 IS HIGH. 
THE CIRCUIT INVERTS BIT 7. EXCHANGING 
CODES 64,„ -127,0 & 192„-2S8,» 



Figure 1 



listed here. Then flip to TEXT, run the 
program again, and compare the two 
printouts. (Be advised that CHR$ 
96-127 and CHR$ 224-255 are not 
generated from the keyboard, so their 
swapping will have little practical ef- 
fect.) In use, you will usually keep SI 
in the NORM position, where the 
printer will work in standard fashion. 
When you want to print upper- and 
lower-case text, switch to TEXT and 
send a CHR$(14) to the printer to put it 
in lower-case mode. When you see your 
capital letters right again at last, you' 11 



50 REM ... AXIOM PRINTER TEST ... 
60 REM 

70 REM PRINTS ALL PRINTING CHARACTERS 
80 REM IN GRAPHICS & LOWER-CASE MODES 
90 REM 

100OPEN4,4:CMD4:PRINTCHR$(8)CHR$(12) 
110G$ = CHR$(15)+" ":L$ = CHR$(14)+" 
120 PRINT"CHR$ G L CHR$ G L" 
130 FOR l = 32T0127 
140 IFI'< 100THENPRINT" "; 
150 PRI~NTI;G$CHR$(I)L$CHR$(I)" "I + 128 

G$CHR$(I + 128)L$CHR$(I + 128) 
160 J = J+1:IFJ = 16THENPRINT:J = 
170 NEXT 
180 PRINT#4:CLOSE4 



know your $2.00 was well spent, and 
that your little printer has a new lease 
on life. 

Raising Numbers to a 
Power with Pascal 

Robert D. Walker, 2850 Delk Rd., Apt. 
2B, Marietta, GA 30067. 



My first introduction to Pascal was on 
the Apple computer about two years 
ago. Prior to this I had done most of my 
programming in BASIC. After becoming 
familiar with Pascal, however, I have 
rarely used any other language. Among 
other things, Pascal makes it easy to 
logically structure programs and keep 
track of variables. One shortcoming, 
however, had me wondering whether 
this language was suitable for scientific 
purposes — there was no direct way to 
evaluate a number raised a power. But 
after remembering some simple laws of 
logarithms, I found the answer. 

Pascal contains the function 
'EXP(Z)', which raises the base (ap- 
proximately 2.718) of the natural 
system of logarithms to the Z power. 
Using the following logic, you can 
develop a formula that uses the EXP(Z) 
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Short Subjects (continued) 

function to evaluate Y raised to the X 
power. The initial expression is: 

y* = e z 

Using laws of logarithms yields 

x Iny = z 

Substituting for z in the initial equa- 
tion yields 

y* = e*<"y - EXP(X*LN(Y)) 

This formula can be used in a Pascal 
function to directly evaluate Y raised to 
the X power (see listing). 

Although this solution is indirect 
and takes significantly more processing 
time than a similar machine-language 
subroutine, I find that for my purposes 
Pascal supports scientific programs 
admirably. 

( THIS FUNCTION RAISES Y TO THE X POWER } 

{ Note: Apple Pascal users must USE(S) } 

{ the TRANSCEND library unit in } 

{ their main program. } 



FUNCTION EXP2(X,Y: REAL): REAL; 
BEGIN 

EXP2: = EXP(X*LN(Y)) 

END WCftO 



"■"■eaflpu sensei :. 

"CARD/?" 
(CARD/PRINT) 

UNIVERSAL CENTRONICS 
PARALLEL PRINTER 
INTERFACE FOR THE VIC-20® 
Now you can use your VIC-20® with 
an EPSON MX-80 printer, or an OKI- 
DATA printer, or a TANDY printer, or \ 
just about anybody's printer. And you 
don't have to give up the use of your 
user port (MODEM), or change to \ 
special printer commands, or load any i 
special software driver programs to do \ 
it. 

• Outputs standard ASCII codes to \ 
the printer. 

• Plugs in the VIC-20® printer serial i 
i/o port. 

• Understands all standard VIC-20® 
print commands. 

• No modification to your VIC-20®. 

• No special programs required. 

• Includes all necessary cables to 
hook up a standard printer using 
Centronics parallel input. 

• MADE IN THE U.S.A. 

The '■CARD/? 1 ' is a product of CAHDCO. Inc. 

$79.95 

TO ORDER 
P. O. BOX 18765 
WICHITA, KS 67218 
(316) 684-4660 

Personal checks accepted 
(Allow 3 weeks) or 
COD (Add $2.00) 
Handling charges $2 00 
VIC-20" is a registered trademark of Commodore 
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SYSTEMS INTEGRATOR 



INTRODUCING: 

ZYTREX 

ZT14411 

CMOS BAUD RATE 

GENERATOR 

REPLACES MOTOROLA MC14411 



• PIN/FUNCTION COMPATIBLE 

• IMPROVED FREQ OUTPUT 
DRIVE (4 LSIJTL LOADS) 

• FULLY STATIC OPERATION 

• TTL-COMPAT1BLE INPUTS 

• WIDE OPERATING VOLTAGE 



FREE EVALUATION SAMPLES 
FOR VOLUME USERS 

$6.20 EACH AT 1000 PCS. 



ZYTREX CORPORATION 
224 NORTH WOLFE ROAD 
, SUNNYVALE, CA 94086 

(408) 733-3973 
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IS THERE LIFE AFTER BASIC ? 
YES ! WITH... 



TM 



COLORFORTH 



MOVE LIP FROM BASIC! Forth is a new, high level language available now for the TRS-80® Color Com- 
puter. COLORFORTH, a version of fig FORTH, has an execution time as much as lO to 20 times faster than 
Basic, and can be programmed faster than Basic. COLORFORTH is highly modular which make testing 
and debugging much simpler. COLORFORTH has been specially customized for the color computer and 
requires only 16K. It does not require Extended Basic. When you purchase COLORFORTH, you receive 
both cassette and RS/DISK versions, the standard fig EDITOR and an extensive instruction manual. Both 
versions and 75 page manual $49.95 



Add $2.00 shipping 



Texas residents add 5 percent 



DEALER AND AUTHOR INQUIRIES INVITED 



ARMADILLO INT'L SOFTWARE 
P. O. Box 7661 
Austin, Texas 78712 






— ~- 


^^s 



Phone (512) 459-7325 
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/AlCftO 

Apple Slices 



By Tim Osborn 



This month I present a file structure 
known as linked-lists. This structure 
chains records together into logical 
groups so that the records in a group (or 
set] can be accessed in a predetermined 
sequence. Items within the set may be 
sequenced by some key field, such as 
name, or by the order in which the 
items are entered into the set. The file 
may contain many sets of records linked 
together, or it may be composed of just 
one set. The records are chained to- 
gether by including a pointer to the next 
and/or previous record in the set. The 
pointer, simply a record number, is car- 
ried as a field in each record of the set. 

Many design options are available 
when you work with linked-lists. For 
example, records can belong to more 
than one set, and there may be multiple 
record types within each set. This 
month's programs (LINK-CREATE and 
LINK- PROG) use a simple file structure 
containing two sets. I chose to include 
the second set simply to manage the 
free space in the file. By chaining 
together unused records, you can 
eliminate the necessity of performing 
what is commonly called garbage col- 
lection (a reorganization of the file). 

When the file is initialized (by 
LINK-CREATE) it contains two record 
types: the header record (there is only 
one) placed at record zero, and the data 
records. The header record contains 
two fields: FIC (first-in-data-chain) and 
NA (next-available-record). The data 
records contain the following fields: 

1. FIRST$ — First name 

2. LASTS — Last name 

3. STR$ — Street address 

4. CITY$ — City address 

5. ST$ — State address 

6. ZIPS — ZIP code 

7. TEL$ — Telephone number 

8. NXT — Next record in chain 

NXT is the pointer to the next record in 



the set. When LINK-CREATE in- 
itializes the file it sets all the data fields 
to nulls (fields 1 through 7), and the 
NXT pointer points to the n + 1 record, 
where n is the current record number. 
Thus, LINK-CREATE builds a chain of 
available records. The first record is 
pointed to by NA in the header record 
(NA is initialized to 1). LINK-CREATE 
prompts the user for the file size 
desired and places that many data 
records in the file. The last record in 
the chain contains a zero in the NXT 
field. Zero signifies an end of chain; 
thus zero is also placed in FIC since the 
used record chain is empty when the 
file has just been initialized. 

LINK-PROG initializes the I/O ar- 
rays in line 10. I use element as the 
file input area (OLD is used as the sub- 
script), element 1 is the keyboard or 
user input area (NW for "new" is used 
as the subscript), element 2 is the file 
output area ( WR for write is used as the 
subscript) . 

Lines 100-145 ask for the desired 
function (A(DD), C(HANGE), 
D(ELETE), I(INQUIRE), (Q(UIT) ) and 
then branches to it. Take a look at how 
these subroutines work: 



Line Description 

5000 Reads the data records into 
the old elements. 

6000 Gets user inputs from the 

keyboard and places them in 
the NW elements. For the 
add function (A$ = "A") it 
prompts the user for all data 
fields. For other functions it 
asks for only the first and last 
name. 

7000 Writes the data records from 
the WR elements. 

8000 Moves data fields from 
elements F (from) to ele- 
ments T (to). 

9500 Displays data fields from the 
old elements. 



ADD (lines 1000 - 1520) 

The add function first reads the 
header record by a GOSUB 4000. It 



then checks in line 1010 to see if NA is 
equal to zero. If there is more free space 
the user is prompted to enter their 
various data fields by a GOSUB 6000. 
Line 1020 reads the available record by 
setting R = NA and a GOSUB 5000. 
Line 1020 also saves the new record 
number for future use by NR = NA. 
Line 1030 resets NA to be equal to NXT 
of the new record. The record previous- 
ly pointed to by the new record 
becomes the next available. If NXT is 
equal to zero then the new record was 
the last available record and NA is set 
to zero. Line 1040 checks to see if FIC 
= 0, which means this new record is 
the first and only record in the used 
record chain. Therefore, FIC is set to 
the new record's number (NR) and the 
next pointer of the new record is set to 
zero (NXT (NEW) = 0). 

The file is searched by starting at 
FIC (line 1050) and checking each suc- 
cessive record to see if the new record's 
key is less than the key of the record to 
which it is being compared (line 1060). 

If the new record's key is more than 
the key of the record to which it is be- 
ing compared, then line 1070 checks to 
see if the current record is at the end of 
the data chain (NXT(OLD) = 0). If so, 
then the current record is rewritten, 
making its NXT pointer equal to the 
record number of the new record |NXT 
(OLD) = NR). The NXT pointer of the 
new record is set to zero as this record 
is now at the end of the data chain. A 
GOTO 1500 then rewrites the header 
record and creates the new record. 

On the other hand, if the current 
record is not at the end of the data 
chain, then it is saved as the last record 
compared to in setting LR = R in 1075. 
The program prepares to access the 
next record in the chain by setting R = 
NXT (OLD) and performing a GOTO 
1055 in line 1080. 

If the new record's key is less than 
the key of the record being compared, 
then the proper position for the record 
has been found, and the program falls 
through to line 1061. Line 1061 sets the 
next pointer of the new record to the 
current record number. Line 1062 
checks to see if the current record is 
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equal to FIC, in which case FIC is reset 
to the new record number and the 
header record and new record are writ- 
ten by a GOTO 1500. If the current 
record number is not equal to FIC then 
it is necessary to update the previous 
record to point to the new record, 
which inserts the new record some- 
where into the middle of the chain. 
Then the header and new record are 
written (line 1064). 

CHANGE (lines 2000 - 2320) 

The change function reads the 
header record (line 2004). Line 2005 
checks to see if FIC = 0. If FIC is not 
equal to zero the user is asked if the 
name is to be changed. If the user 
responds "Y" (yes), the program pro- 
ceeds to delete the record (GOSUB 
3030 in line 2030). Since the delete 
routine saves the deleted data in the 
NW elements, line 2031 moves this 
data back to the OLD elements. Lines 
2032 through 2038 accept the new first 
and last names from the user. Control 
is then passed to line 2070. 

If the user does not want to change 
the name then the change function con- 
tinues at line 2050 where a GOSUB 
6000 gets the first and last name, and a 
GOSUB 9000 searches for the desired 
record. 

Line 2070 checks to see that the 
record was found; if not (RO0) then a 
'not found' message is displayed. Lines 
2080 through 2297 prompt the user to 
change any of the data fields in the 
record. Line 2300 checks for a name 
change (CN$ = "Y"). If there was, the 
data is moved from OLD to NW and the 
record is added through a GOTO 1020. 
If the name was not changed then the 
record is rewritten (line 2310) and con- 
trol returns to the main menu. 

DELETE (lines 3000 - 3130) 

The delete function first reads the 
header record (line 3010), then makes 
sure FIC = 0. Line 3030 GOSUBs to 
6000 to get the key of the record to 
delete. Line 3040 GOSUBs to 9000 to 
search for the record. If the record is 
found (RC = 0) then processing 
continues. 



When the record is found, line 3045 
saves the deleted record number in DR 
then saves the data in line 3045. Line 
3060 makes sure the deleted record is 
the first in the chain (FIC = R). FIC is 
set equal to the next pointer of the 
deleted record. If the deleted record is 
not first in the chain, lines 3070 
through 3080 update the previous 
record's NXT pointer to point at the 
record at which the deleted record 
originally pointed. Lines 3100 - 3120 
make the next pointer of the deleted 
record equal to the next available 
record (NXT(WR) = NA), and the next 
available equal to the deleted record 
number (NA = DR). This pushes the 
deleted record onto the top of the 
available record stack. 

INQUIRE (lines 2500 - 2860) 

By reading the header record and 
looking for an FIC value of zero, line 
2505 checks to see if the file is empty. 
There are two types of inquiries — 
BROWSE and DIRECT. BROWSE 
allows the user to start anywhere in the 
file and call records up in sequence; the 
user is also given the option of chang- 
ing or deleting any record from the 
BROWSE option. DIRECT requires the 
user to know the full key; unless it 
finds a match on the exact key, it will 
display a 'not found' message. 

Line 2509 asks the user which type 
of Inquiry is to be performed. If the user 
replies "D" for DIRECT, lines 2600 
through 2630 ask the user for the key, 
find the record, and display the data. 
When the user is done viewing the 
record, any key can be depressed to 
return to the main menu. 

If the user selects the BROWSE op- 
tion, processing continues at line 2750, 
which asks the user to enter a part or 
whole of the last name. This tells the 
program where to begin the BROWSE. 

Line 2820 displays the record. Line 
2830 asks the user to change, delete, 
look at the next record in the chain, or 
return to the main menu (quit) . To con- 
tinue, lines 2836 through 2850 preprare 
to get the next record, first making sure 
that the end of the chain has not been 
reached (NXT(OLD) = 0). If it hasn't, 



then the next record is obtained by a 
GOSUB 9015 (line 2850). The 
BROWSE cycle is continued by looping 
back to line 2810. 

QUIT (line 150) 

Quit makes sure the file is properly 
closed so any data in the buffer is writ- 
ten to the file before processing ends. 

Program Hints 

LINK-PROG is an example of how 
to deal with linked-lists. It provides 
you with all the basic processing com- 
ponents of linked-lists, but is not de- 
signed as an end in itself. It is simply an 
example of an application of linked- 
lists. 

Note that as the linked-list gets 
longer the processing begins to slow 
down. To access the last record in the 
chain all subsequent records must be 
read first. So linked-lists are best used 
where the lists are relatively short. An 
example of this is the catalog sectors 
that Apple DOS use to store file 
description entries. Also, linked-lists 
are most powerful when they are built 
on top of each other in a hierarchy, so 
that there are subchains and sub- 
subchains. This structure makes it 
possible to build large and complicated 
data-bases. 





LINK-CREATE 





HOME 


1 


INPUT "ENTER NUMBER OF RECORDS ";SZ 


5 CD| = CHR$ (4) 


10 


0NERR GOTO 20 


15 


PRINT CD$"DELETE LINK-FILE" 


20 


PRINT CD$"0PEN LINK-FILE, L80" 


22 


PRINT CD$"VRITE LINK-FILE, R0" 




: PRINT 0: PRINT 1 


25 


FOR J = 1 TO SZ 


3i 


PRINT CD$"WRITE LINK-FILE, R"; J 


40 


PRINT A|: PRINT A?: PRINT A$: 




PRINT A$: PRINT A$: PRINT A 




$: PRINT A$ 


45 


IF J = SZ THEN PRINT 0: GOTO 50 


47 


PRINT J + 1 


50 


NEXT 


60 


PRINT CD$"CL0SE LINK-FILE" 



(LINK-PROG Listing on next page) 
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LINK-PROG 

10 DIM FIRST?(2): DIM LAST?(2): DIM 

SRT?(2): DIM CITY?(2): DIM S 

19(2): DIM ZIP?(2): DIM TEL? 

(2): DIM NXT(2) 
20 CD? = CHR? (4):NW = 1:WR = 2 
30 PRINT CD?"0PEN LINK-FILE, L80" 
100 HOME : HTAB 4: VTAB 2: PRINT 

"A(DD) C(HANGE) D(ELETE) Q(UIT)"; 
110 HTAB 4: VTAB 3: PRINT "I(NQU 

IRE) ";: GET A? 
120 IF A? = "A" THEN GOTO 1000 
130 IF A? = "C" THEN GOTO 2000 
140 IF A? = "D" THEN GOTO 3000 
145 IF A? = "I" THEN GOTO 2500 
150 IF A? = "Q" THEN PRINT CD?: 

PRINT CDS; "CLOSE LINK-FILE": END 
160 GOTO 100 

1000 REM *** ADD RECORDS *** 
1005 GOSUB 4000: REM GET HEADER 

RECORD 
1010 IF NA = THEN INVERSE : HOME 

: PRINT : VTAB 10: PRINT "FI 

LE FULL": NORMAL : FOR K = 1 
TO 2000: NEXT K: GOTO 100 
1015 HOME : GOSUB 6000: REM GET 

INPUTS 
1020 NR = NA:R = NA: GOSUB 5000: REM 

GET NEW RECORD 
1030 NA = NXT(OLD) 
1040 IF FIC = THEN NXT(NW) = 

:FIC = NE: GOTO 1500 
1050 R = FIC: REM GET FIRST DATA 

RECORD 
1055 GOSUB 5000: REM GET DATA RECORD 

1060 IF NOT (LAST?(NW) + FIRST? 
(NW) < LASTS(OLD) + FIRST?(0 
ID)) GOTO 1070 

1061 NXT(NW) = R 

1062 IF R = FIC THEN FIC = NR: GOTO 1500 
1064 R = LR: GOSUB 5000:NXT(OLD) = 

NR:T = WR:F = OLD: GOSUB 800 

0: GOSUB 7000: GOTO 1500 
1070 IF NXT(OLD) = THEN NXT(OL 

D) = NH:F = OLD:T = WR: GOSUB 

8000: GOSUB 7000:NXT(NW) = 

: GOTO 1500 
1075 LR = R: REM SAVE PREV. REC. NO. 
1080 R = NXT(OLD): GOTO 1055: REM 

GET NEXT DATA RECORD 
1500 GOSUB 4500: REM WRITE 1ST REC. 
1510 R = NR:F = NW:T =■ WR: GOSUB 

8000: GOSUB 7000 
1520 GOTO 100 

2000 REM 

2001 REM *»* CHANGE RECORD »»** 

2002 REM 

2004 GOSUB 4000: REM GET HEADER 

2005 IF FIC = THEN HOME : VTAB 
5: HTAB 4: PRINT "THERE ARE 
NO RECORDS TO CHANGE ": FOR 

K = 1 TO 2000: NEXT K: GOTO 100 
2010 HOME : HTAB 4: VTAB 4: PRINT 

"DO YOU WISH TO CHANGE THE NAME ?" 
015 HTAB 4: VTAB 5: PRINT "ENTE 

R Y(ES) OR N(O) ";: GET CN? 
2017 IF CN? = "N" GOTO 2050 
2020 IF CN? < > "Y" GOTO 2015 

2030 GOSUB 3030: REM DELETE REC. 

2031 F = NW:T = OLD: GOSUB 8000: REM 

RESTORE DELETED RECORDS DATA 

2032 HOME : HTAB 4: VTAB 5: INPUT 
"ENTER NEW FIRST NAME ";FIRS 
T?(OLD) 

2034 IF FIRST? (OLD) - "" GOTO 2032 
2036 HTAB 4: VTAB 6: INPUT "ENTE 

R NEW LAST NAME "; LAST? (OLD) 
2038 IF LAST?(OLD) = "" GOTO 2036 
2040 GOTO 2070: REM GET OTHER I 

NPUTS 
2050 HOME : GOSUB 6000: REM GET 

INPUTS 
2060 GOSUB 9000: REM FIND RECORD 
2070 IF RC > THEN GOSUB 9075: 
GOTO 100: REM (RC=1 OR 2) = 
NOT FOUND 
2080 GOSUB 9500: REM DISPLAY REC. 
2100 HTAB 4: VTAB 5: PRINT "DO Y 

OU WISH TO CHANGE THE STREET 

? ";: GET CH? 

16 



2110 IF CH? = "N" GOTO 2140 
2120 IF CH? < > "Y" GOTO 2100 
2130 HTAB 4: VTAB 5: CALL - 868 

: INPUT "ENTER STREET ";SRT? 

(OLD) 
2135 IF SRT?(OLD) = "" GOTO 2130 
2137 GOSUB 9500: REM REDISPLAY REC. 
2140 HTAB 4: VTAB 5: CALL - 868 

: PRINT "DO YOU WISH TO CHAN 

GE THE CITY? ";: GET CH? 
2150 IF CH? = "N" GOTO 2180 
2160 IF CH? < > "Y" GOTO 2140 
2170 HTAB 4: VTAB 5: CALL - 868 

: INPUT "ENTER CITY ";CITY 

?(0LD) 
2175 IF CITY* (OLD) = "" GOTO 2170 
2177 GOSUB 9500: REM REDISPLAY REC. 
2180 HTAB 4: VTAB 5: PRINT "DO Y 

OU WISH TO CHANGE THE STATE? 

";: GET CH? 
2190 IF CH? = "N" GOTO 2220 
2200 IF CH? < > "Y" GOTO 2180 
2210 HTAB 4: VTAB 5: CALL - 868 

: INPUT "ENTER STATE ";ST?( 

OLD) 
2215 IF ST?(OLD) = "" GOTO 2210 
2217 GOSUB 9500: REM REDISPLAY R 

ECORD 
2220 HTAB 4: VTAB 5: CALL - 868 

: PRINT "DO YOU WISH TO CHAN 

GE THE ZIP?";: GET CH? 
2230 IF CH? x "N" GOTO 2260 
2240 IF CH? < > "Y" GOTO 2220 
2250 HTAB 4: VTAB 5: CALL - 868 

; INPUT "ENTER ZIP ";ZIP? 

(OLD) 
2255 IF ZIP?(OLD) = "" GOTO 2250 
2257 GOSUB 9500: REM REDISPLAY REC. 
2260 HTAB 4: VTAB 5: PRINT "DO Y 

OU WISH TO CHANGE THE TEL. # 

?";: GET CH? 
2270 IF CH? = "N" GOTO 2300 
2280 IF CH$ < > "Y" GOTO 2260 
2290 HTAB 4: VTAB 5: CALL - 868 

: INPUT "ENTER TEL. » ";TEL? 

(OLD) 
2295 IF TEL?(OLD) = "" GOTO 2290 
2297 GOSUB 9500: REM REDISPLAY REC. 
2300 IF CN? = "Y" THEN CN? = "": 

F = OLD:T = NW: GOSUB 8000: GOTO 

1020: REM RE-ADD RECORD FOR 

NAME CHANGE 
2310 F = OLD:T = WR: GOSUB 8000: GOSUB 

7000: REM REWRITE RECORD 
2320 GOTO 100 

2500 REM 

2501 REM ***** INQUIRY ***** 

2502 REM 

2505 GOSUB 4000: IF FIC = THEN 
HOME : HTAB 4: VTAB 5: PRINT 
"THERE ARE NO RECORDS TO INQ 
UIRE UPON": FOR K = 1 TO 200 
0: NEXT K: GOTO 100 

2509 HOME : HTAB 5: VTAB 4: PRINT 
"WHICH TYPE OF INQUIRY? " 

2510 HTAB 5: VTAB 5: PRINT "D(IR 
ECT) OR B(ROWSE) ";: GET B? 

2520 IF B? = "B" GOTO 2750 
2550 IF B? <> "D" GOTO 2510 
2600 HOME : GOSUB 6000: REM GET 

KEY 
2610 GOSUB 9000: REM FIND RECORD 
2612 IF RC > THEN GOSUB 9075: 
GOTO 100: REM IF NOT FOUND 

DISPLAY MESG. AND RETURN 
2620 HOME : GOSUB 9500: REM DIS 

PLAY RECORD 
2630 HTAB 5: VTAB 23: INVERSE : PRINT 

"HIT RETURN TO CONTINUE "; : GET 

B?: NORMAL : GOTO 100 
2750 HOME : HTAB 1: VTAB 4: PRINT 

"ENTER A PORTION OF (OR WHOL 

E) LAST NAME": HTAB 1: VTAB 

5: INPUT "FOR START OF BROWS 

E ";LAST?(NW):FIRST?(NW) = "" 
2800 GOSUB 9000: REM FIND REC. 
2810 IF RC = 1 THEN GOSUB 9075: 
GOTO 100: REM DISPLAY NOT 

FOUND MESG. AND RETURN TO MA 

IN MENU 

MICRO 



2820 GOSUB 9500: REM DISPLAY REC. 

2830 HTAB 1: VTAB 23: INVERSE : PRINT 
"ENTER N(EXT) C(HANGE) D(ELE 

TE) Q(UIT)";: GET B?: NORMAL 

2831 HTAB 1: VTAB 23: CALL - 868 

2832 IF B$ = "C" THEN F » OLD:T = 
NW: GOSUB 8000: GOTO 2100 

2833 IF B? = "D" THEN F = OLD:T = 
NW: GOSUB 8000: GOTO 3045 

2834 IF B? = "Q" GOTO 100 

2835 IF B? <> "N" GOTO 2830 

2836 R = NXT(OLD) : REM PREPARE TO 

GET NEXT RECORD 
2840 IF R = THEN HOME : HTAB 
5: VTAB 4: PRINT "THE END OF 

FILE HAS BEEN REACHED" ; : FOR 
K = 1 TO 2000: NEXT K: GOTO 100 
2850 GOSUB 9015: REM CONTINUE BROWSE 
2860 GOTO 2810 

3000 REM 

3001 REM *** DELETE RECORD **** 

3002 REM 

3010 GOSUB 4000: REM GET HEADER 
3020 IF FIC = THEN HOME : VTAB 
5: HTAB 4: PRINT "THERE ARE 
NO RECORDS TO DELETE": FOR K 
= 1 TO 2000: NEXT K: GOTO 100 
3030 HOME : GOSUB 6000: REM GET 
FIRST + LAST NAME 

3040 GOSUB 9000: REM FIND REC. 

3041 IF RC = GOTO 3045 

3042 GOSUB 9075: REM DISPLAY NO 
T FOUND MESSAGE 

3043 IF A? = "C" THEN POP : REM 
IF CHANGE 

3044 GOTO 100 

3045 DR = R: REM SAVE NO OF DELE 
TED RECORD 

3050 F = OLD.'T = NW: GOSUB 8000: REM 

SAVE DELETED RECORDS DATA 
3060 IF R = FIC THEN FIC = NXT(0 

LD) : GOTO 3100 
3070 R = LR: GOSUB 5000: REM GET 

PREV RECORD 
3080 NXT(OLD) = NXT(NW):F = OLD:T 
= WR: GOSUB 8000: GOSUB 700 

0: REM UPDATE PREV RECORD 
3100 NXT(WR) = NA:NA = DR 
3110 R = DR: GOSUB 7000: REM UPD 

ATE DELETED RECORD 
3120 GOSUB 4500: REM UPDATE HEADER 
3125 IF A? = "C" THEN RETURN 
3130 GOTO 100 
3140 REM 

3997 REM 

3998 REM ***** READ HEADER **** 

3999 REM 

4000 PRINT CD? 

4001 PRINT CD?"READ LINK-FILE, R0" 
4010 INPUT FIC: INPUT NA 

4020 PRINT CD? 

4030 RETURN 

4040 REM ********************** 

4500 REM 

4510 REM ***** WRITE HEADER *** 

4515 REM 

4517 PRINT CD? 

4520 PRINT CD?"WRITE LINK-FILE, R0" 

4530 PRINT FIC: PRINT NA 

4540 PRINT CD? 

4550 RETURN 

4560 REM ********************** 

4999 REM 

5000 REM *** READ DATA REC **** 

5001 REM 

5005 PRINT CD? 

5010 PRINT CD?"READ LINK-FILE, R";R 

5020 INPUT FIRST?(OLD) 

5030 INPUT LAST?(OLD) 

5040 INPUT SRT?(OLD) 

5050 INPUT CITYI(OLD) 

5060 INPUT ST?(OLD) 

5070 INPUT ZIP? (OLD) 

5080 INPUT TEL? (OLD) 

5090 INPUT NXT(OID) 

5100 PRINT CD? 

5110 RETURN 

5120 REM ********************** 

5997 REM 

5998 REM ***** GET INPUTS ***** 



5999 REM 

6000 HTAB 4: VTAB 4: INPUT "INPU 
T FIRST NAME ";FIRST?(NW) 

6010 HTAB 4: VTAB 5: INPUT "INPU 

T LAST NAME ";LAST?(NV) 
6015 IF A? <> "A" GOTO 6060: REM 

ONLY NEED FIRST AND LAST NAME 
6020 HTAB 4: VTAB 6: INPUT "INPU 

T STREET ";SRT$(NW) 

6030 HTAB 4: VTAB 7: INPUT "INPU 

T CITY ";CITY?(NW) 

6035 HTAB 4: VTAB 8: INPUT "INPU 

T STATE ";ST?(NW) 

6040 HTAB 4: VTAB 9: INPUT "INPU 

T ZIP ";ZIP?(NW) 

6050 HTAB 4: VTAB 10: INPUT "INP 

UT TELEPHONE ";TEL$(NW) 
6060 RETURN 
6070 REM 

6999 REM 

7000 REM *** WRITE DATA REC *** 

7001 REM 

7005 PRINT CD? 

7010 PRINT CD?"WRITE LINK-FILE, R"; 

7020 PRINT FIRSTJ(WR) 

7030 PRINT LAST?(WR) 

7040 PRINT SRT?(WR) 

7050 PRINT CITY?(WR) 

7060 PRINT ST?(WR) 

7070 PRINT ZIP?(WR) 

7080 PRINT TEL?(WR) 

7090 PRINT NXT(WR) 

7100 PRINT CDS 

7110 RETURN 

7120 REM 

7200 RETURN 

8000 REM ****** MOVE DATA ***** 

8010 FIRST?(T) = FIRST?(F) 

8020 LAST?(T) = LAST$(F) 

8030 SRT?(T) = SRT?(F) 

8040 CITY?(T) = CITYS(F) 

8050 ST?(T) = ST?(F) 

8060 ZIPS(T) = ZIP$(F) 

8070 TEL?(T) = TEL?(F) 

8080 NXT(T) = NXT(F) 

8090 RETURN 

8100 REM 

9000 REM 

9001 REM **** FIND RECORD ***** 

9002 REM 

9010 R = FIC: REM START AT BEGINN 

ING OF FILE 
9015 RC =0: REM RESET RETURN CODE 
9020 GOSUB 5000 
9030 IF FIRST?(NW) + LASTS(NW) = 

FIRST?(OLD) + LAST?(OLD) THEN 
RETURN : REM RECORD FOUND 
9035 IF LASTS(NW) + FIRST$(NW) < 

LAST? (OLD) + FIRST? (OLD) THEN 

RC = 2: RETURN 
9040 LR = R:R = NXT(OLD): REM REM 

ADVANCE TO NEXT RECORD 
9050 IF R = THEN RC = 1: RETURN 
9060 GOTO 9020: REM GET NEXT REC 

ORD 
9075 HOME : HTAB 4: VTAB 4: PRINT 

"RECORD NOT FOUND": FOR K = 

1 TO 2000: NEXT K: RETURN 

9500 REM 

9501 REM *** DISPLAY RECORD *** 

9502 REM 
9505 : HOME 

9510 HTAB 5: VTAB 7: PRINT "FIRS 

T NAME = "; FIRST? (OLD) 
9520 HTAB 5: VTAB 8: PRINT "LAST 

NAME = ";LAST?(OLD) 
9530 HTAB 5: VTAB 9: PRINT "STRE 

ET = ";SRT?(OLD) 
9540 HTAB 5: VTAB 10: PRINT "CIT 

Y = "; CITY? (OLD) 
9550 HTAB 5: VTAB 11: PRINT "STA 

TE = ";ST?(OLD) 
9560 HTAB 5: VTAB 12: PRINT "ZIP 

CODE = ";ZIP?(OLD) 
9570 HTAB 5: VTAB 13: PRINT "TEL 

EPHONE NO. = ";TEL?(OLD) 
9580 RETURN 
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NEW for VIC-20 Users! 

Mastering Your VIC-20 
With 8 BASIC Projects 

A book that makes learning to 
program your VIC-20 fun! Con- 
tains 8 projects and programs. 
Games, utilities — even a VIC-20 
version of "VisiCalc." All 8 pro- 
grams on cassette to help you 
learn faster. 
D Mastering the VIC-20 @ $23.95 



NEWforOSI Users! 
MICRO on the OSI 

Includes Machine-Language 
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enhanced/reversed video, pro- 
grams for control code and 
upper/lower case entry. A valuable 
programming tool. 
Q Micro on the OSI @ $19.95 
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ELECTRONICS, INC. 

COPYRIGHT © 1981 — PATENTS PENDING 

566 Irelan, Buellton, CA 93427 
(805)688-2047 

8:00 TO 5:00 CALIFORNIA TIME 



SUPER FAN II 

FOR YOUR APPLE II* COMPUTER 



COMPUTER PRODUCTS 

DESIGNING • MANUFACTURING 
ELECTRONIC ENGINEERING 



TM 





One Year Warranty 

$74.95 

With Zcncr Ray™ 
Protection $109.00 

MASTERCARD - VISA 



"COOL IT" 




• ALSO FITS ON APPLE'S* NEW MONITOR STAND 

• RED PILOT LIGHT ON/OFF SYSTEM SWITCH 

• CLIPS ON — NO HOLES OR SCREWS • REPLACEABLE SWITCH 
•AVAILABLE IN 120V or 240V AND 50/60 HZ • DURABLE MOTOR 

• REDUCES HEAT CAUSED BY EXTRA PLUG-IN CARDS 

• SOLD WORLD WIDE • UNIQUE 1 YEAR WARRANTY 

• TAN OR BLACK COLOR • QUIETEST FAN ON THE MARKET 

• INCREASED RELIABILITY - SAVES DOWN TIME AND REPAIR CHARGES 

• LOW NOISE DUE TO DRAWING EFFECT OF AIR THROUGH YOUR COMPUTER AND SPECIAL FAN AND MOTOR DESIGN 

• TWO EXTRA 120V OUTLETS FOR MONITOR AND ACCESSORIES TURN ON WHEN YOU TURN ON YOUR FAN 
(NOT AVAILABLE ON 240V MODEL) 

SUPER FAN II™ WITH ZENER RAY OPTION $109.00 

ZENER RAY™ TRANSIENT VOLTAGE SUPPRESSOR 

OUR BUILT IN ADVANCED DESIGN UNIT GIVES 

DRAMATIC COST SAVINGS — STOPS ANNOYING DOWN TIME 

INSURANCE FROM, VOLTAGE SPIKES -GLITCHES 

DANGEROUS VOLTAGE SPIKES CAN JEOPARDIZE YOUR COMPUTER SYSTEMS 

PROTECT COMPUTER - DISK DRIVE - PRINTER AND MONITOR 

NO CUTTING WIRES • WON'T VOID WARRANTY, JUST PLUG IN SUPERFAN II WITH ZENER RAY 

OTHER PRODUCTS BY %Telectronics. inc. 

SUPER RAM II™ 16K RAM CARD FOR YOUR APPLE II. 2 YEAR WARRANTY $125 

GUARDIAN ANGEL™AN UN'.NTERRUPTABLE POWER SOURCE $595 

12 VOLT TRANSVERTER 12 VOLT- RUNS YOUR APPLE II COMPUTER AND 

AND 5V4 " DRIVE FROM YOUR CIGARETTE LIGHTER $149 

•Registered trademarks of Apple Computer Inc. 



DEALER INQUIRIES INVITED 



Circle No. 13 



No. 58 - March 1983 



MICRO 



17 



Circle No. 14 



CDZDPU SENSEi:/ 



VIC-20® 

VIC-1515 

VIC-1530 

VIC-1541 

VIC-1010 

VIC-1311 

VIC-1312 

VIC-1600 

VIC-1210 



$169.95 

334.95 

67.50 

375.00 

139.95 

9.95 

19.95 

99.95 

34.95 



VIC-20® 
Personal Computer 
Printer 
Datasette 
Disk Drive 
Expansion Module 
Joystick 
Game Paddles 
Telephone Modem 
VIC 3K Memory Expander Cartridge 

Plugs directly into the VIC'S expansion port. Expands to 8K RAM total. 
VIC-1110 VIC 8K Memory Expander Cartridge 52.50 

8K RAM expansion cartridge plugs directly into the VIC. 

CM101 VIC 16K Memory Expander Cartridge 99.95 

CM102 24K Memory Expander Cartridge 119.95 

VIC-1011A RS232C Terminal Interface 39.95 

Provides interlace between the VIC-20 and RS232 telecommunications modems. 
Connects to VIC'S user port. 

PETSPEED - Basic Compiler lor Commodore 130.00 

Compile any Pet Basic program. The only optimizing compiler. Programs compiled 
with Petspeed run up to 40 times laster. Petspeed code is unlistable and compiled 
programs cannot be tampered with. No security device required for compiled pro- 
grams. Available NOW for the Commodore 64. 

Star Gemini 10 Printer Call for price 

Star Gemini 15 Printer Call for price 

SMD Monitor Call for price 

CARDBOARD 6 $87.95 

An expansion interface lor the VIC-20 Allows expansion to 40K or accepts up to six 

games. May be daisy chained for more versatility 

CARDBOARD 3 $39.95 

Economy expansion interface lor the VIC-20. 

CARD "?" CARD/PRINT $79.95 

Universal Centronics Parallel Printer Interface for the VIC-20 or CBM-64 Use an 

Epson MX-80 or OKIDATA or TANDY or just about any other. 

CARDETTE $39.95 

Use any standard cassette player/recorder with your VIC-20 or CBM-64. 

LIGHT PEN $29.95 

A light pen with six good programs to use with your VIC-20 or CBFvl-64. 



HOME & BUSINESS PROGRAMS For VIC-20 & C-64 

CW-107A Home Calculation Program Pack $48.95 

CPV-31 Data Files - your storage is unlimited 14.95 

CPV-96 Household Finance Package - to keep records of an 30.95 

your household expenses 

CPV-208 Bar-Chart - display your numerical data 8.95 

CH Turtle Graphics - learn programming 34.95 

CH VIC Forth - is a powerful language for BASIC programming 49.95 

CH HES MON - is a 6502 machine language monitor with 34.95 

a mini-assembler 

CH HES Writer - time-saving word processing tool 34.95 

CH Encoder - keep your personal records away from prying eyes 34.95 

CT-21 Statistics SadistiCS - statistical analysis 14.95 

CT-121 Total Time Manager 2.0 - creates personal or 15.95 

business schedules 

CT-124 Toll Label - a mailing list and label program 13.95 

CT-125 Totl Text BASIC 15.95 

CT-126 Research Assistant - keep track ot reference data 17.50 

CT-140 Totl Text Enhanced 29.95 

CM- 152 Grafix Designer - design graphic characters 12.95 

CQ-5 Minimon - allows you to program, load. save, or execute 13.95 
machine language programs 

CT-3 Order Tracker 15.95 

CT-4 Business Inventory - to maintain record of inventory 1 5.95 

CS Home Inventory - lists your home belongings 17.95 

CS Check Minder - (V-20 & 64) 14.95 
keep your checkbook the right way 

General Ledger - a complete general ledger 19.95 

HES Writer - word processor 39.95 
Turtle Graphics II - utilizes the full graphics ol your 64 49.95 



CS 

CHC-504 

CHC-503 

CHC-502 

CHP-102 

CFC 

CPV-327 



HESMON - machine language monitor w/mini-assembler 34.95 



6502 Professional Development System 29.95 

Data Flies - a management program 27.95 

HESCOM - transfers data and programs bidirection- 40.95 
ally between VICs at three times the speed of a disk drive 

CPV-328 HESCOUNT - monitors program execution 19.95 

CHV HESPLOT - Hi-res graphics subroutines 12.95 

CPV-367- Conversions - figures, volume, length, weight, area. 7.95 

and velocity to all possible configurations 

CC The Mall - your complete mail program Cassette 24.95 

Disk 29.95 

CPV-220 Client Tickler 16.95 

CPV-221 Club Lister 13.95 

CPV-224 Depredator 9.95 

CPV-236 Investment Analyst - keep track of investments 12.95 

and investment opportunities 

CPV-251 Present Value 10.95 

CPV-269 Super Broker 12.95 

CPV-270 Syndlcator - calculates whether to buy or sell 13.95 

CPV-274 Ticker Tape - maintains investments profile 14.95 

CPV-276 Un-Word Processor - screen editor 16.95 

CPV-286 Phone Directory - never lose a phone number again 9.95 

CS-1 1 1 Checkbook - home "utility" program 1 4.95 

CPV-294 Calendar My Appointments - print a calendar 14.95 

for every month in any year. 

CPV-296 The Budgeter - place your personal finances in order 1 2.95 



CS1 



QUICK BROWN FOX 

The Word Processor of this decade! 



$60.50 



COMMODORE SOFTWARE 

VIC-1211A VIC-20 Super Expander $57 99 

Everything Commodore could pack into one cartridge -3K RAM memory expansion, 
high resolution graphics plotting, color, paint and sound commands Graphic, text, 
multicolor and music modes 1024x1024 dot screen plotting All commands may be 
typed as new BASIC commands or accessed by hitting one of the VICs special 
function keys. Includes tutorial instruction book. Excellent for all programming levels. 

VIC-1212 Programmer's Aid Cartridge $45 99 

More than 20 new BASIC commands help new and experienced programmers 
renumber, trace and edit BASIC programs Trace any program line-by-line as it 
executes, pause to edit. Special KEY command lets programmers redefine function 
keys as BASIC commands, subroutines or new commands 
VIC-1213 VICMON Machine Language Monitor $48.99 

Helps machine code programmers write fast, efficient 6502 assembly language 
programs. Includes one line assembler/disassembler 



NEW GAMES FOR YOUR VIC-20® 

' CC58 AstroblitZ - This game is challenging, even to a $39.95 

VIC-MASTER! Navigateyour ship carefully to avoid being hit by enemy tire. 
CC60 Terraguard - Speed and careful skill will enable you to 39.95 

once again destroy the aliens. Too slow? You're destroyed by their beam 
CC98 Serpentine - This game will test your patience & 39.95 

skill. Object - to survive long enough to lay eggs and raise your young. 
CC500 Intruder-Scrambler- myour bomber, invade the 19.95 

defending scramble system, dodging rockets, to blow up enemy posts, etc 
CC101 Choplifter - Rescue the American hostages A return 39.95 

them safely to the U.S. You will encounter tanks, jets and killer satellites 
CC102 Black Hole - Your mission is. simply, to survive! Your 39.95 

ship must not be hit by space objects or sucked into the Black Hole! 
CC104 Apple Panic - Speed is required! Destroy the 39.95 

apple monsters by digging holes in the brick floors for them to fall into 
CC65 Video Mania - Introducing your enemies: EVIL EYE, 39.95 

WALWOKER, KILLERBOX Your only defense - throw your alien zapper! 
CS1 Flaps Of Nations - A game that challenges players 1 0.95 

to identity flags ofvarious widely-known nations of the world. 
CS2 Flags of Nations - Second Edition - a field of 10.95 

34 Hags ot lesser known nations of the world 

CS3 Cities and States - A game that draws a map of 1 0.95 

a state or states and asks players to name key cities in those states 

CS4 Cities Of the World - Deals with important 1 0.95 

cities of nations throughout the world 

CS5 Mountains and Rivers - Draws large geographical 10.95 

area maps. You identity major mountain ranges, rivers &. bodies of water 

NEW GAMES FOR YOUR C-64 

Tank Arcade (Also for VIC-20) - Pre-determine how many hits $1 3.95 
it will take to wipe out your opponent Then, on with the battle! Battlefield changes 
Roadracer - Choose the type of track A a time or lap race. Use 1 3.95 

steady control at speeds ol 50 to 200 miles per hour. Hit the wall & lose valuable time 

Shootout at the OK Galaxy (Also for VIC-20) - 30 alien 19.95 

warships have entered your war zone. Shields up? Energy level OK? Delend yourself 
Galaxy - Have you ever wanted to conquer the universe? Send 1 9.95 

your galactic fleets out to explore, solar system by solar system. From 1 to 20 players. 
Bomber Attack - Ground to air warfare. You're in command 1 4.95 

of a supersonic bomber over enemy terrain. Drop all 25 bombs on key locations 
Midway Campaign - Your computer controls a huge force of 1 9.95 

Japanese ships trying to conquer Midway Island Your only advantage is surprise. 
Dnieper River Line - A fictionalized engagement between Russian 25.00 

A German forces in 1943. Soviet forces, controlled by the computer, seek to overrun 
your line and capture sufficient objectives to attain victory. Four levels of difficulty. 
TanktlCS - Armored combat on the Eastern front of WWII. You 24.50 

start outnumbered 2 to 1 but you choose your tank types before the battle. 
Guns Of FOfl Defiance - You are the commander of a 19th artillery 20.00 
piece in a besieged fort. Choose type of ammo. Set the cannon's elevation, deflection. 

Computer Baseball Strategy - you. the manager of the 1 5.95 

home team, test you skill against a wily and unpredictable opponent, your computer 
Lords Of Karma - Like an intriguing puzzle! Decipher secrets 20.00 

while exploring a mythical, magical city A countryside. Avoid the lurking monsters 1 

North Atlantic Convoy Raider - its the Bismarck convoy 19.95 

raid of 1941! The computer controls the British ships. Will you change history? 
Planet Miners - Compete against others and the computer to 1 9.95 

stake valuable mining claims throughout the solar system in the year 2050 
Conflict 2500 - In 2500 AD. earth is threatened by attacking 1 9.95 

aliens with an infinite 8 of attack strategies with which to tease the defending player 
Nukewar - Nuclear confrontation between two hypothetical 19.95 

countries. Defend your country with espionage, bombers, missiles, submarines, etc 
Computer Acquire - New Second Edition' The object is to 20.00 

become the wealthiest person in this "business" game -hotel acquisitions & mergers 
Andromeda Conquest - Vast scale space strategy game of 1 9.95 

galactic colonizing and conquest. Strange life forms A alien technologies - exciting! 
Telengard - Microcomputer Dungeon Adventure game. Time 25.00 

fantasy and role-playing. 50 levels of ever-more complex mazes to explore A survive! 

MORE - MORE - MORE 



TO ORDER: 
P.O. Box 18765 
Wichita, KS 67218 
(316) 684-4660 



Prices subject to change. 



WRITE 

FOR 

FREE 

CATALOG 



sj>lJ. 



Personal checks accepted (Allow 3 weeks) 

or C. O. D. (Add $2) Handling charges $2- 00 

VIC-20® is a registered trademark of Commodore 
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Hi-Res Plotting with the VIC 



by Fred Wallace 



A discussion of the graphics 
mode available on a VIC-20 
equipped with the VIC 1515 
graphic printer is presented, 
along with a BASIC subroutine 
that permits plotting of either a 
mathematical function or a user- 
generated array on a grid with 
labelled axes. 

Hi-Res Plotting 

requires: 

VIC-20 (5K or more) 
VIC-1515or 
VIC-1525 printer 

Mathematical relationships are best 
analyzed in the form of a graph. Even 
an inexpensive computer like the 
VIC-20 can be used to produce such a 
graph if the computer is used with a 
pin-programmable dot-matrix printer. 
For those who own the VIC-20, 
Commodore has provided a very cap- 
able printer, the VIC- 15 15, which has 
features that make plotting easy. 
Although most people probably will 
purchase the 1515 for program listings 
and data printout only, it comes with 
some very powerful graphics and for- 
matting commands. The commands 



are explained thoroughly in the manual 
that accompanies the unit, and the pro- 
gram presented here uses most of them. 
The newer VIC-1525 printer uses 
standard-width paper, but is pro- 
grammed similarly. 

The . VIC-1515 has three major 
operating modes. When first powered 
up, or after receiving a CHR$(15), it is 
in the standard-character mode, which 
permits printing of all alphanumeric 
and keyboard-graphics characters avail- 
able on the screen. This mode is used 
for program listings and normal data 
printout. Access to the alternate set of 
keyboard graphics [i.e., those on the 
left front of the keycaps) is with a 
special secondary address in the OPEN 
command. 

Double-width characters are ob- 
tained with a CHR$(14J. This expands 
each character horizontally, reducing 
the number of characters per line from 
80 to 40 in the process. These may be 
used in either the standard or alternate 
printer character sets. 

The graphics mode is entered by 
transmitting a CHR$(8). In this mode 
you gain control of each individual 
"dot" in the print-line. To understand 
how this is done, first look at how the 
character modes work. 



When the printer receives the code 
for a particular character, it first looks 
the code up in the built-in ROM to see 
what dots are required to form that 
character. The ROM supplies informa- 
tion for a 5 x 7 matrix of dots (see the 
upper-case "A" in figure 1) and then 
the printer logic leaves the sixth col- 
umn blank before proceeding to the 
next character. By sending one 8-bit 
code, you can print anywhere from to 
35 dots. 

In contrast, the graphics mode 
allows you to bypass the printer's char- 
acter ROMs and send information to 
the head directly (see figure 2) . Once in 
this mode, each 8-bit code received by 
the printer is no longer interpreted as a 
character — it is either processed as a 
control code if bit 7 is zero (that is, if 
the binary value is less than 128), or it 
is sent directly to the head if bit 7 is one 
(binary value between 128 and 255). In 
the latter case, bits through 6 deter- 
mine directly whether or not the head 
will place a dot on dot-lines 1 through 7 
of this particular print-line. For exam- 
ple, in order to place a single dot in dot- 
line 4, the binary value required is 128 
+ 8, or CHR$(136). Dot-lines 3 and 4 
would be darkened by sending 128+4 
+ 8, or CHR$(140). Since you must 



Figure 1: 5x7 dot matrix for 
printer character 'A'. 
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PRINTLINE 



Figure 2: Pin-programmable graphics mode. 

DOT-LINE _1 OOO BINARY WEIGHT = 1 

2 O O O = 2 

3 O • O = 4 

4 • • O = 8 

5 OOO = 16" 

6 OOO =32 

7 O O O =64 



1U 



T 



OUTPUT BYTE 



No. 58 - March 1983 



MICRO 



19 



PRINTERS 



issue one such byte for each vertical 
column of dots (remember, there are 
six of these in each normal-mode char- 
acter], it is obvious that you can place a 
dot anywhere you want it, within the 
area reached by the printhead on each 
pass. For example, to duplicate the 
upper-case "A" in figure 1 you would 
have to send CHR$ codes of 254, 137, 
137, 137, 254, 128. 

The printer also automatically 
takes care of buffer overflow in the 
graphics mode. It may take as many as 
481 bytes of data to print one line in 
this mode (i.e., the CHR$(8) to get into 
graphics, followed by 80 x 6 = 480 
data bytes), but the printer's internal 
buffer is only 90 bytes long. Therefore 
it will print partial lines, 90 bytes at a 
time, until it completes the whole line. 
This action is taken without any special 
programming requirement. To avoid 
having space left between successive 
lines, the linefeed length is two-thirds 
of that used in the character mode. 



Plotting with Dots 

Although the most common use for 
the graphics mode is to create custom- 
ized characters (like the little monsters 
you chase all over the screen in games], 
the real value lies in its ability to place 
a dot almost anywhere on a piece of 
paper. In the graphics mode, approx- 
imately 98 print-lines will fit on an 
1 1-inch-long sheet of paper — that is 98 
x 7 or 686 dot-lines. You have seen 
that the 80-column width means 80 x 
6 = 480 possible horizontal points, so 
on an 8 x 11 page you have available a 
grid of 686 [vertical) by 480 (horizontal) 
dot positions — high enough resolution 
for some very fine work. 

The subroutine in listing 1 is 
designed to use the grid concept to 
create a graph of any two-dimensional 
relationship for which a VIC-BASIC 
DEF FN can be written. You need only 
to reserve an integer array (A%), define 
the function, and specify the start- 
value and step- value (increment) for X 
and Y (variables XS, XI, YS, and YI, 
respectively) . If a title is placed in array 
T$, it is printed under the completed 
graph. The routine uses only about 
1600 bytes so plenty of room remains, 
even on a 3.5K machine, for data-entry 
or tape-read routines to automate the 
process. For example, calling the sub- 
routine from the program in listing 2 
produced the plot shown in graph 1 . 



The Program 

Lines 1000 to 1020 perform initial 
setup. B$ is the VIC-printer equivalent 
of a TAB function and advances the 
printhead to the twentieth character 
position. The tab is used for locating 
the vertical axis. C$ sets the printer to 
standard-character mode. Dl$ and D2$ 



print the characters that form the ver- 
tical axis, and then put the printer in 
graphics mode, ready to plot. 

Line 1030 begins the outer func- 
tional loop. YR is the Y-increment per 
print-line (7 dot-lines), and RV is the 
row-value of the uppermost dot-line in 
each print-line. Line 1040 initializes 
the output array to "graphic spaces" 



Listing 1 

998 REM 

999 REM— — - — -----—?-— PLOTTING SUBROUTINE 

1000 B*»CHR*C16>+CHR«(30>+CHRX4B> '■ C*»CHR*< 13) 

1010 ri*=CHR*(l?n+CHR«C6> !D2*»CHR*C123)+CHR|;(B> iSP-lZB 

1020 0PEN1,4:PRINT#1:PRINTI1 

1030 VR«VI*7:FORRN=0TO49!RV«VS+(50-RN)lKVR 

1040 FORCN-0TO300 : fiJS<CN>-SP ' NEXTCH 

1050 IFRN-10*INTCRN/'10>O3THENPRINT#1 j C*;B*;D1*j:OOTD1090 

1060 CH=RV-3*VI!IFnBS(CN)C0;5HlVITHENCH»0 

1070 print#1,c*j :e*«str*<cn)if0rn-l.to(19-len<e*>>:print#i>" "; :nextn 
1080 print#i,e*;b*;d2*::ce«0 

1090 FORCN=0TO299 

1100 RS=>RV-FNYCXS+CN*XI>:iFRS<0THEN1130 

1110 DR=INT(RS/'VI):iFDR>6THEN1130 

1120 fi?i(CN>«128+2tDR:CE"CN 

1130 NEXTCN 

1150 CE»CE+l:fl«CE>«13 

1160 FuRCN=0TOCE:PRINT#l,CHR*Cf)K<DO>J 'NEXTCN 

1170 nextrn:print#i,c*;b*;chr*<173>; ' 

1180 forcn=0to50!ifcn-10*int(cn/10)o5thenprintii < chr*<177>; , -goto1200 

1190 PRINT#l,CHR*a23>; 

1200 NEXTCN :PRINT#1 

1210 FORNN=5TO45STEP10:F*=STR*<NN+13):PRINT#l < CHR*ClS>JMID*(F*-2,2>; 

1220 XV=XSKNN+0.5>*XI*6! IFflBS(XVX0.5*XITHENXV=0 

1230 E*=STR*<XV> !L=LEN<E*> : IFL>10THENL=10 

1240 FORN»0TOINT(5-L/Z):PRINT#1 < " \':NEXTN 

1250 PRINT#1,E*; :NEXTNN:PRINT#l:PRINT#l 

1260 PRINT#1,CHR*<14>; '■L=LEN(Ti;> 'IFL>40THENL=40 

1270 FORN=1TOINT(23-L/2>:PRINT*1," 'VNEXTN 

1280 PRINT#1,T*;CHR*U3> :PRINT#1 :PR1NT#1 'CLOSEl 

1290 RETURN 



Listing 2 

99 REM : — fl SAMPLE CURVE-DENERflTING PR0GRRM 

100 DIM f)J{C300> 

110 XS— 0.3:VS— 0.249!VI«.002:X>.I 
120 DEF FNV(X>«SINCX>/£X+1> 
130 T*-"V ■ SINCX>/{X+1>" 
140 DOSUB1000!END 



Listing 3 

99 REM fl SAMPLE P0INT-PL0TTIN0 PR00RRM 

100 DIM fKC300>,VAC300> 
110 XS-0:YS-B'-VI*1*XI-1 

120 Vfl<0>«0! FORCN»0TOZ99 ' IFCN-100*INKCN/100»»50THENIN— S ■ G0T0123 

123 IN-S 

125 VflCCN+l>"VB(CN)+IN: NEXTCN 

130 T*-"TRIflNGULflR WAVE" 

140 GOSUBI000:END 



1 100 R8-RV-VRCCN) '■ IFRS<0THEN1 130 
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(128j. Line 1050 determines if it's time 
to place a label on the vertical axis. If it 
is, then lines 1060 to 1080 calculate its 
value, strain out "zero-residuals" such 
as 1.729358E-26, and right-justify the 
resulting string into position. Enough 
room is reserved so that any legal string 
resulting from the STR$( ) function can 
be printed, even those with exponents. 

Lines 1090 to 1130 form the inner 
functional loop. For each column num- 
ber (CN) you find the value of the FN Y 
and determine if that value lies within 
this print-line. If it does, make an entry 
in A%. Variable CE keeps track of 
where the last entry was made so you 
can truncate trailing spaces. Lines 1150 
and 1160 append a carriage return and 
finish the line by sending A% to the 
printer. 

When all 50 lines (that is, 350 dots 
vertically) have been printed, then 
lines 1170-1200 output the horizontal 
axis, complete with tic marks. Printing 
the labelling for this axis is somewhat 
more challenging than the vertical, 
however, since you want to center the 
number string at a given position rather 
than right-justify it. Lines 1210 to 1250 
accomplish this, first by tabbing to the 
start of the allowable space for each 
label, then spacing over to the correct 
beginning point before actually output- 
ting the string. This algorithm is less 
able to deal with lengthy labels because 
of restricted space, so you may want to 
do some intelligent rounding here. 

Finally, lines 1260 to 1280 center 
the caller-supplied title in double- 
width characters under the graph. 



Upgrading the Routine 

The first complaint you will have 
about the above example is that it is 
painfully slow (figure 3 takes over 20 
minutes). Much of this is due to the 
sheer number of bytes sent to the 
printer — each line requires as many as 
330. Extra time is consumed with serial 
bus handshaking. 

Astute BASIC programmers also 
will notice that the function FN Y is 
called from the innermost loop and is 
consequently called 50 x 300 (15000) 
times! Worse yet, only 300 of these 
calls produce unique values. This was 
done to save memory, as the storing of 
300 floating-point numbers would use 
over 1500 bytes — almost as much as 
the routine itself! If you have an ex- 
panded VIC, you can change the code to 
piecalculate the values and then use 




them directly in line 1100, but don't 
expect too dramatic an improvement. 
Interpreted BASIC is not outstanding 
when it has to run FOR-NEXT loops 
15000 times. 

You may want to try the program in 
listing 3. This routine eliminates the 
FN definition and instead loads array 
VA directly. Don't forget to make the 
accompanying change in line 1100 
before running. This program, which 
just barely fits in an unexpanded VIC, 
not only runs faster but also shows how 
point-plotting (as opposed to function- 
plotting) can be implemented. 



Conclusion 

A VIC-20/VIC-1515 combination 
can produce high-resolution dot-plots 
comparable to dot-addressable printers 
available at much higher cost. With the 
addition of the VIC RS-232 option and a 
few lines of code, the package could 
become an intelligent graphic-output 



station for another micro or mainframe 
— one that can buffer an entire graphic 
and plot offline. 

(Author's note: A few of the early- 
production 1515 printers do not handle 
buffer overflow properly in graphics 
mode. If your unit locks up occasion- 
ally while running these routines, con- 
tact your dealer or Commodore Cus- 
tomer Support.) 
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Fantastic 

action game 

for Atari* 



The elite corps known as the 
Nightraiders are trying to bring 
freedom to a conquered earth. 
Since they are few in number, 
compared to the enemy, they 
must operate under the cloak of 
darkness. As the group's leader, 
your mission is to fly over enemy 
strongholds . . . identify targets o 
opportunity and destroy them 
thoroughly. 

While the invaders cannot 
mount an air attack after the sun 
has set they do have weapons of 
awesome power . . . weapons 
which relentlesly track your 
flightpath and anticipate your 
movements. 

Success does not come easy. 
You must be able to maneuver 
like the crack of a whip . . . 
accelerate and decelerate in and 
out of hyperdrive . . . while 
carefully lining up the targets for 
your twin ion bombs. And alway 
?p an eye on the special radar 
screen which spots enemy actiot 
for you. 

Become a Nightraider and 
meet the most fascinating 
challenge of your space career! 

$29.95/AtarP 

400/800 with 
Disk Drive 
and |oystkk 

At your computer store, or from: 



8943 FullbrightAve.. 
Chatsworth. CA 91311 
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VIC-20 



SOFTWARE 
SPECIALS 



NEW 



A 100% machine code game with colorful 
graphics, music, sound and a funny looking 
turtle to entertain your entire family! 
By Thomas Kim and Jimmy Huey ONLY J1 5.95 

IPIIW!!!ll!JlW,!!B!,IW iP 





VIC-20 



FROM TRONIX 




SWARM! 

Another fast action game written 
entirely in machine language from 
Tronix. Insects invade your Vic! 

Cassette $29.95 



DUST COVERS - $7.95 

For Vic-20 or Vic-64 

* Waterproof 

* Brown Color 

* Commodore Logo 
Protect your investment! 



FROM 



MARTIAN 
SOFTWARE 




STAR COMMAND 

* Intergalactic Combat! ' Space Conflict 

* All Machine Language 
Cassette $16.95 



<JT~ INTERESTING SOFTWARE 

' P 21101 S. Harvard Blvd., Torrance, CA 90501 
(213) 328-9422 
Visa/MC/C heck/Money Order Add $2 00 Postage & Handling 

CA residents add appropriate sales tax Dealer Inquirers Invited 

Write for free Catalog 



ic-20 is a Iradetnvtt atCommodtve Business Machines. 
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Can Do It! 

Nothing else even conies close to D.R.S. — our Disk Recovery 
System- not Bags of Tricks," not Dark 1 ; not Disk Fixer- nothing! 



rzf 



Put your dam- 
aged disk in one drive, 
a blank disk in the 
other. D.R.S. will do 
what all those other 
guys will do. ..and 
far more! 



& 



No other pro- 
gram actually reads 
information from 
damaged sectors, but 
D.R.S. does. 



2fl 



No other pro- 
gram can read disks 
that were recorded 
off-center, but D.R.S. 
does. 



Ef 



No other pro- 
gram can read disks 
with errors caused by 
hub damage, but 
D.R.S. does. 



2f 



No other pro- 
gram types, grades 
and fixes all possible 
files, but D.R.S. does. 



11. 



•No other pro- 
gram makes recov- 
ered files accessible 
for conventional 
editing, but D.R.S. 
does. 

Available at your dealer 

or call us at / 

(612)929-7104 \ 

We accept 



ef 



And all of this is 
totally automatic. 
D.R.S., a step ahead 
of the state-of-the-art 
in Apple disk recovery 
systems. 




SOF/SYSjnc^) 



VISA/MaSterCard 4306 Upton Ave. So. • Mpls.. MN 55410 
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Print Control 
for APPLE Printers 



by John R. Vokey and H. Cem Kaner 



Automatic pagination and user- 
selectable margins should be 
part of the printer-driver routine, 
but are rarely included. This 
short machine-language 
subroutine provides formatted 
output to most output devices. 

Print Control 

requires: 

Apple II and printer 

If the area where you work on your 
Apple looks anything like ours, you 
have a mess in need of a clean-up solu- 
tion. Somewhere there's a heap of pro- 
gram listings and, perhaps, a marginal- 
ly tidier file drawer of folders holding 
other listings and printouts. The prob- 
lem will be worse if, in a brilliant 
economy move, you buy a thermal 
printer or some other printer that uses 
rolled paper rather than fanfold. We 
made this mistake when equipping one 
of the five Apples that our two labs use. 
The rolled paper curls back into little 
scrolls, which are easily mutilated and 
defy attempts at neat filing. 

There's an obvious and cheap 
means of bringing this problem under 
control. Three-hole punch the print- 
outs and bind them in paper or card- 
board binders. With some gentle per- 
suasion [stacking about 50 pounds of 
books on top of the printouts for a few 
days usually works) even the rolled 
paper can be made to lay almost flat 
inside the binders. Unfortunately, 
there are a few difficulties in doing this 
for BASIC listings and printouts from 
programs that do not allow formatting 
of output. 

The first problem occurs when you 
separate the pages of output [fanfold 
paper) or rip the rolled paper into pages. 
The top halves of some lines appear on 
the bottom of some pages while the 
bottom halves are at the top of the next 



pages. After relettering these lines by 
hand and three-hole punching the pages, 
you'll note the next problem. Some of 
the line numbers have been replaced by 
holes. This won't be noticeable, 
though, because the paper or cardboard 
strip in the binder that presses the left 
edge of your output flat will hide the 
rest of your line numbers anyway. 

Automatic pagination and user- 
selectable margin settings are easily 
programmed tasks for a computer or an 
"intelligent" peripheral or peripheral 
board, but are rarely included. While 
some programs, such as Apple Writer, 
do an excellent job of formatting a page, 
others do not. Applesoft's LIST com- 
mand, for example, has no provision 
for margin adjustment, except via text 
window settings for the TV screen, 
which are ignored by the printer. As to 
the printers, most rightfully expect 
that the computer or the interface 
board will tell them when to carriage 
return and what the margin settings 
should be, so there is no solution at 
this level either. Formatting your pro- 
gram listings will have to be done by 
either -the interface or by use of a patch 
to BASIC. Some interface boards, such 
as the Grappler, do give the user con- 
trol over the right and left margins of 
output and over the length of printed 
pages and the number of blank lines left 
between them. Most don't. For exam- 
ple, Grappler' s closest competitor, the 



PKASO board, doesn't allow resetting 
of the left margin. One board we've 
used doesn't allow control of even the 
right margin except via a few DIP 
switch settings. This is most in- 
furiating at times: where do you put 
marginal notes on program listings if 
there are no margins on the page? If you 
have a Grappler or other board that can 
do all the output formatting for you, 
read no further. Your interface does 
everything that our program does ex- 
cept for titling each page. However, if 
you use Apple's standard parallel out- 
put board or one of the majority of 
other interfaces around, and would 
prefer to spend a few minutes of typing 
to $200 to replace the board, here's a 
program to format your output. 

Using the Program 

The program is reached by a CALL 
command. If you load it at location 768 
($300), set PRNT = 768. Before issuing 
the CALL, initialize your output device 
(e.g., PR#1 for a printer connected to 
slot 1). Some printers and interfaces re- 
quire a few other initialization com- 
mands, such as CTRL-I80N to allow 
80-column output. A few also require 
that at least one carriage return be 
printed before the printer is considered 
"active" by DOS. Your printer and 
board manuals will give you initializa- 
tion details. Do the call at the point 
where you normally start printing data 







Tablo 1: Format Parameters 


Parameter 


Label 


Legal Range 


Default POKE Address and Notes 


Left Margin 


LM 


0<=LM<=255 


10 966. Blank lines forever if 
RM<=LM 


Right Margin 


RM 


LM<RM<=255 


70 965. Make it at least 1 less 
than printer allows 


Page Number 


PN 


0< = PN<=255 


1 964 


Step-over 


ST 


0<=ST <?L 


10 963. Blank pages forever if 
ST> = PL 


Page Length - 1 


PL-1 


ST<PL-1<=255 


65 962. PL- 1=0 kills 

pagination and title 


Title 




255 chars 


"Page" 935 low byte, 937 high byte 
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instead of more printer commands. The 
general form of the PRNT call is 

CALL PRNT,LM,RM,PN,ST,PL-1 

where the parameter names (LM, etc.) 
are as defined in table 1 . For example, 
with a 132-column printer you might 
CALL PRNT,15,117,5,10,65. Output 
would be indented by 15 blank spaces 
|LM). The right margin would be 117 
characters from the left edge fnot 
margin) of the page. The page number 
printed for the first page of output 
would be 5. Ten linefeeds would be in- 
serted between each page of output, 
and each page (counting the step-over 
linefeeds) would be 66 lines long. 

The example above contains a lot of 
parameters to bother with each time 
you call the routine. Often your para- 
meters won't change from one call to 
the next, or you might be happy with 
certain default values (such as those in 
table 1). You can omit specifying a new 
value for any parameter either by leav- 
ing out the number but typing in the 
comma separating it from the next 
parameter, or by terminating the list 
early with a carriage return or colon. 
The values assigned to these para- 
meters are the ones used the last time 
you called the routine or, if none have 
been specified, by the default values 
loaded into the appropriate locations 
when the program was brought into 
memory from the disk. For example, 
CALL PRNT with no parameters leaves 
all parameters as they were before. 
CALL PRNT,, 80,, 50 defaults the left 
margin, the step and the page number, 



and sets the right margin to 80 columns 
and the page length to 50 lines. 

Once you issue a CALL PRNT com- 
mand, the parameters (except for page 
number, which is updated after each 
page) stays constant until you turn the 
printer off with a PR#0 command. As 
long as the printer (modem, whatever) 
is active, you need never call the PRNT 
routine again. In fact, you should not 
call it again without first shutting it off 
by a PR#N command where N refers to 
any legal output slot. As explained 
below, the system will hang if PRNT is 
re-CALLed when it is active. If you 
want to change the formatting para- 
meters while printing, just POKE new 
parameter values into the appropriate 
locations, as specified in table 1. For 
example, POKE 966,15 resets the left 
margin to 15. 

Changing output parameter values 
on the fly can be used to produce for- 
matted BASIC listings, with indenta- 
tion and spacing used to highlight pro- 
gram structure (as typically done for 
Pascal listings). For example, if you 
have a long FOR... NEXT loop, or many 
of them nested inside others, the pro- 
gram structure is seen more easily if 
the lines inside the loops are indented a 
few spaces. A very simple example of 
formatting program output is given in 
listing 1. Looking at that program, it's 
clear that this can be a tedious busi- 
ness. You need to append a whole new 
program to your program to control the 
listing. However, tedious is preferable 
to impossible. This feature comes in 
most handy when you have a final draft 
of a program that you've written for 



someone else, and want to give that 
person a listing which is easier to read 
(or looks more professional) than an 
unformatted BASIC listing. 

A final parameter, which is not 
specified in the parameter list, is the 
heading to be printed at the top of each 
page. As long as your page length is not 
set to 0, the page number will be 
printed. The program in listing 2 will 
output this as "PAGE ";PN, where 
PN is this page's number. The string 
"PAGE " is replaced easily, however. 
In subroutine TITLEOUT, the location 
of the title string is passed to STROUT, 
Applesoft's string output subroutine. 
Currently, that string is stored in loca- 
tions $3C9 through $3CE (labelled 
TITLE in the program). If you have a 
different title in mind, simply define it 
in your program and point to it within 
TITLEOUT. Only the pointer at $3A7 
(low byte, decimal 935) and $3A9 
(937), which currently point to TITLE, 
need be changed. 

You can change the title and the 
pointer in a number of ways. The one 
we find easiest works like this: at the 
very start of the program (line 1] insert 
a REM containing the title you want 
printed. For example, if you want ' 'MY 
LISTING PAGE ";PN printed at the 
top of each page (where PN is the page 
number), your program's first line 
would be 

1 REM MY LISTING PAGE 



Remember to put a space after ' 'PAGE" 
in the REM. You won' t see it in the pro- 







Listing 1: 


Print Control 






1 


REM DOUBLESPACE BETWEEN LINES COURTESY OF APPLESOFT LIST 


PAGE 1 






2 


REM ELIMINABLE IF YOUR PRINTER REVERSE LINEFEEDS 












10 


FOR I 1 TO 10 












2i 


REM NESTED AT FIRST LEVEL 




1 


REM DOUBLESPACE BETWEEN LINES COURTESY 


OF APPLESOFT LIST 


30 


REM SO INDENT TO SHOW IT 




2 


REM ELIMINABLE IF YOUR PRINTER REVERSE 


LINEFEEDS 


40 


FOR J 1 TO 10 




10 


FOR 


I 1 TO 10 




50 


REM NESTED ANOTHER LEVEL 












60 


REM INDENTATION MAKES THIS CLEARER 












70 


NEXT J 






20 


REM NESTED AT FIRST LEVEL 




80 


REM BACK TO THE FIRST LEVEL 






30 


REM SO INDENT TO SHOW IT 




90 


NEXT I 






40 


FOR J 1 TO 10 




99 


REM BACK TO OUTERMOST LEVEL 












110 


REM NOW FORMAT THE LISTING OF THE PROGRAM 












120 0% CHR$ (4): PRINT D$; "PR1" : PRINT CHRJ (9)i" 


81N": 






50 REM NESTED ANOTHER LEVEL 






REM MAKE PRINTER MARGIN 1 WIDER THAN MARGIN MARGIN 








60 REM INDENTATION MAKES THIS 


CLEARER 


130 PRNT 768: CALL PRNT: REM DEFAULTS OK 












140 


LIST - 10 












150 


POKE 966,15: LIST 20,40: REM INDENT 






70 


NEXT J 




160 


POKE 966,20: LIST 50,60: REM MORE INDENT 






80 


REM BACK TO THE FIRST LEVEL 




170 


POKE 966,15: LIST 70,80: REM DOWN A LEVEL 












180 


POKE 966,10: LIST 90,99: REM END OF ACTUAL PROGRAM 




90 


NEXT 


I 




]RUN 




99 


REM 


BACK TO OUTERMOST LEVEL 
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QUICK BROWN FOX $60.95 

The #1 word processor! 

GENERAL LEDGER $19.95 

(VIC-20) 

CHECK MINDER 

vic-20 $19.95 c-64 $24.95 

HOME INVENTORY $19.95 

(VIC-20) 

CENTIPOD $27.95 

Like Centiped, only better! 

FROGEE $27.95 

The exciting arcade game of Frogger. 

MOTOR MOUSE $29.95 

What a cheese'ee game! 

CRIBBAGE 
vic-20 $14.95 c-64 $17.95 

This is the game of Cribbage. 

STAR TREK 
vic-20 $12.95 c-64 $17.95 

Excellent adventure game! 

MASTER MIND 
vic-20 $12.95 c-64 $19.95 

Makes you think- 

ROACH MOTEL $9.95 

Kill the bugs! 
YAHTZEE 1.1 $12.95 
YAHTZEE2.1 $14.95 



TO ORDER 
P. O. BOX 18765 
WICHITA, KS 67218 
(316) 684-4660 



Personal checks accepted 
(Allow 3 weeks) or 
C.O.D. (Add $2.00) 
Handling charges $2.00 
VIC-20<-' J is a registered trademark of Commodore 
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Circle No. 18 
5SSSSSSSSSSSSSSSSS8SSSSSSSS 

"■"-CQ/DPU SENSEi-V 

CARDBOARD 3 

An Economy Expansion Interface 

(Motherboard) 

For the VIC-20® Personal 

Computer 

The "CARDBOARD/3" is an expansion inter- 
face designed to allow the user to access more ' 
than one of the plug 7 in-type memory or utility ] 
cartridges now available. It will accept up to 3 ( 
RAM or ROM cartridges at once For example: 

• 16k RAM + 16k RAM + 3k RAM 

• 16k RAM + 8k RAM + Super Expander 

• 16k RAM + 8k RAM + Vic-Mon 

• 16k RAM + 3k RAM + Programmer's Aid 

• High quality TRW. gold plated connectors 

• This board is fused 

• 90 day free replacement warranty covering J 
everything except the fuse 

$39.95 

CARDBOARD 6 

An Expansion Interface for VIC-20® 

• Allows memory expansion up to 40K 

• Accepts up to six games 

• Includes a system reset button 

• All slots are switch selectable 

• Daisy chain several units for even more 
versatility 

$87.95 

TO ORDER: 
P. O. BOX 18765 
WICHITA. KS 67218 
(316) 684-4660 

Personal checks accepted 

(Allow 3 weeks) or 

C.O.D. (Add $2) 

Handling charge $2.00 

VIC-20 1 " is a registered trademark of Commodore 
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gram, but it will be printed if you 
include it. 

REM specifies what the new title 
should be, but you haven't told the for- 
matting program where to find it. The 
title itself starts in memory six bytes 
after the start of program text, as 
pointed to by Applesoft's pointer TXT- 
TAB at $67,$68. For example, if TXT- 
TAB holds $801 (the usual case), the M 
of MY LISTING PAGE starts at loca- 
tion $807. POKE 8 into location 937 
($3A9) and POKE 7 into location 935 
|$3A7) and your title, instead of the 
default title, will be printed at the top 
of each page. 

We should stress that the program is 
handy for more than just producing 
listings. Often we print long tables of 
data that run for more than a page. 
Using this routine we can indent the 
first column of data automatically and 
leave blank- lines between pages. Fur- 
ther, we can automatically print the 
headings for each column of output at 
the top of each page by making that our 
"title." For example, 

1 REM PARAMETER LABEL LEGAL 
RANGE DEFAULT POKE ADDRESS 
& NOTES PAGE 

would be used to print the column 
headers at the top of each page of out- 
put for table 1 . 

Notes on the Program Itself 

Two things in the program are likely 
to puzzle anyone attempting to under- 
stand the code. The first is a BIT RTS1 
command used at line 76. The second 
is our technique for intercepting data 
sent to the printer. 

The BIT RTS1 command is a trick 
that we ran across in the old Apple II 
Reference Manual (the red one — now 
out of print). Control characters are not 
printed on the screen or on the printer, 
so if the program counts these as 
having been printed it will force a car- 
riage return before the true right margin 
is reached. ASCII control codes are in 
the range $00 through $1F (high bit 
clear) or $80 through $9F (high bit set). 
To detect the codes in a straightforward 
way would require three or more 
compare-and-branch instructions, 
which would make our routine too long 
to fit on page 3 of memory. Note, 
however, that the ASCII codes are 
distinguished by having the second and 
third highest bits clear, whether the 
high bit is set or not. Therefore, if they 



were ANDed with #$60, the result 
would be $00. This is true for all con- 
trol characters and no others. Thus, if 
you store the character in the ac- 
cumulator, AND it with #$60, and test 
the zero flag, you have a control 
character when Z = 1 . The only prob- 
lem is that the AND wipes out the ac- 
cumulator in the process. You need to 
keep the character to determine if it's 
the code for a carriage return, in which 
case tabbing to the left margin and a 
check on page length must be done. 
The BIT command performs an AND 
between the accumulator and the con- 
tents of a memory location, setting the 
right flags but leaving the accumulator 
alone. So if you can find a memory 
location holding #$60 you're in 
business. Since #$60 is the machine 
code for RTS, BIT RTS1 does exactly 
this job. From there you branch around 
the line updating the position of the 
print head if you do have a control 
character. 

To intercept the data, your routine 
must count each character printed to 
tell when the right margin is reached. 
At that point, it breaks the line, car- 
riage returns, and tabs (inserts blanks 
in the printout) to the left margin. The 
routine also needs to detect carriage 
returns sent from BASIC in order to tab 
over for the next line after these, and to 
check if a new page should be started. 
To accomplish this, at some point you 
have to pass every character being sent 
to the printer through your routine, 
counting non-control characters, car- 
riage returns, etc. To do this, you must 
find out where the subroutine control- 
ling output to the printer, modem, TV 
(or whatever device is active), is 
located in memory. After finding it, 
you can either direct it to pass control 
to your program after it's done printing 
the character, which is rather tricky if 
that routine is in ROM and is thus un- 
modifiable, or you can find out as well 
what routine calls this output routine, 
modify that one instead, and then pass 
characters to the device handler after 
you've looked at them. 

The second approach, that of grab- 
bing the characters before they're 
printed, is rmieh simpler, due to careful 
thinking about output flexibility on the 
part of Apple's programmers. While 
most device handlers are stored in 
ROM or EPROM chips, all output is 
directed to these handlers through a 
pointer in RAM called CSW, at loca- 
tions $36 and $37. On an Apple that 
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uses only cassette tape for mass 
storage, CSW always holds the address 
of the current output device handler 
and all PRINTing is done by checking 
CSW and sending character codes to 
the address it contains. All you need to 
do, then, is to read CSW, store the ad- 
dress it holds somewhere in your pro- 
gram, and then point CSW at your 
routine. Send the data to the true out- 
put device on line 75 of the program, at 
JSR DOCHAR, where the address after 
JSR is modified after each CALL to 
point to the correct routine. (Life is 
more complex if you use disks. I 

Many DOS commands are issued 
using PRINT commands. Thus, when a 
program is running, you can't say sim- 
ply "PR#1". You have to say PRINT 
CHR$(4);"PR#1". The printed CTRL- 
D (CHR$(4) | is there to get DOS's at- 
tention. This is true also for commands 
to open and close files, etc. To find 
these CTRL-Ds, DOS has to grab each 
character as it goes by and check if it is 
a CTRL-D. How does it do that? It 
points CSW at itself, stores the true 
output device-handler address in a safe 
place inside the DOS code, and passes 



characters to the device when it's 
through with them. DOS is very pro- 
tective about the contents of CSW. It's 
easy enough to change CSW, but if you 
do just about anything after that (turn- 
ing your head often seems adequate), 
you'll discover that DOS changed it 
back. There is no way to grab the out- 
put before DOS gets it without com- 
pletely rewriting the operating system. 
Instead, what you have to do is to fool 
DOS into thinking that your routine is 
the correct device-handling routine and 
let it pass the data to you. Then, as 
before, your routine can send it to the 
real device. 

The first part is easy. If you change 
CSW to point to your output checking 
routine (called HOOK) at $34D, then 
when DOS takes back control of CSW 
(using a subroutine called DOSCON, 
for DOS CONnect), it stores $34D in 
the place it reserves to hold the "true" 
CSW value, and outputs all characters 
to HOOK thereafter. So far so good, but 
where does HOOK send them? If it uses 
the CSW contents as a guide, it sends 
them back to DOS, which sends them 
to HOOK, which sends them to DOS; 



and you've just created a lovely model 
of a bureaucracy at work. Nothing ever 
gets printed this way. Instead, you have 
to find out where DOS has hidden the 
true device-handler address and, before 
allowing DOS to overwrite that with 
HOOK's address, you have to save it in 
HOOK. This is what the CONDOS sec- 
tion of the program does. 

Every time you CALL PRNT, CON- 
DOS is executed. The first thing it does 
is to find DOS itself. This changes from 
machine to machine, depending on the 
amount of memory available, but CSW 
[almost) always points to the right 
place in DOS. Now it has to find that 
internal DOS equivalent to CSW. Un- 
fortunately, that's not always held in 
the same place, even relative to the ad- 
dress you've found, especially |we 
understand) with some customized ver- 
sions of DOS being used privately. 
What does seem to stay constant, 
though, is a pair of locations $26 [38 J 
bytes past the start of the DOS in- 
tercept routine, which holds the ad- 
dress of the address of the device- 
handling routine. If you read the ad- 
dress held there, you can find the right 



EVER WONDER HOW YOUR APPLE II WORKS? 

QUICKTRACE will show you! And it can show you WHY when it doesn't! 

This relocatable program traces and displays the actual machine operations, while it is running and 
without Interfering with those operations. Look at these FEATURES: 



SIngle-Stmp mode displays the last instruction, 

next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 

Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 

Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
itions is met, which causes the program to return 
to Single-Step. 



QUICKTRACE allows changes to the stack, 

registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
information. All this can be done in Single-Step 
mode while running. 

Two optional dieplay formate can show a sequence 
of operations at once. Usually, the information 
is given in four lines et the bottom of the screen. 

QUICKTRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 



QUICKTRACE is relocatable to any tree part of 

memory. Its output can be sent to any slot or to 
the screen. 

QUICKTRACE is completely compatible with 

programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICKTRACE is 
alive. 

QUICKTRACE is a beautiful way to show the 

incredibly complex sequence of operations that 
a computer goes through in executing a program 



Price; $50 

QUICKTRACE was written by John Rogers, 
QUICKTRACE rs a trademark of Anthro- Digital, Inc. 



QUICKTRACE requires 3548 (SEOO) bytes (14 pages) of memory and some knowledge of machine language programming. 
It will run on any Apple II or Apple II Ptus computer and can be loaded from disk or tape. It is supplied on disk with DOS 3.3. 



QUICKTRACE DEBUGGER 



Last Instruction 



Stack 



Last addrnaa 

FF69- 
ST=7C Al 



? A A 

Top sawn bylBt of atack 



Dlaateembly 

LDA #$AA 



UTj 



Proceaaor codes User defined location 4 Conlenla 

43 D4 CI NV-BDIZC nr>nn=n.r 



Accumulator X ng. Y ng. 

Content, A=AA X-98 Y = 2' 

Next Instruction FF6B~ S5 33 



Stack pointer 

SP=F2 



Processor ttatua 

PS= 10 110001 



uuuu=tL 

Content of nfemnced addreta 

[]=DD 

Dlaaanmbly Reference addree. AnthrO-Dlgital, IllC. 

5TA *33 [*0033l P.O. Box 1385 

Pittsfield, MA 01202 
413^48-8278 
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CSW replacement (finally). Having 
found it, store its contents in HOOK 
(see lines 58 and 61 of the listing), and 
HOOK now sends data to the routine 
that actually prints it (or at least to the 
next intercept routine, which will pass 
the data on eventually). 

CONDOS is how you find out 
where to send the data. It's also the 
basis for our caution against CALLing 
PRNT a second time. If DOS is point- 
ing to HOOK already, the next CALL to 
PRNT gets CONDOS working again 
and it will dump HOOK's address into 
HOOK as the place to send data to be 
printed. So HOOK will JSR HOOK will 
JSR HOOK will.... Don't CALL PRNT 
twice without issuing a PR#N (N 
holding a slot number) between. PR#N 
resets the DOS CSW pointer, so the 
next CALL to PRNT will find a real I/O 
handler address in this place, as it 
should. Note that PR#N shuts HOOK 
off by rewriting DOS's CSW address. If 
accidentally you issue two CALL 
PRNTs in a row, RESET will get you 
out of this infinite loop. 

For more information on the work- 
ings of DOS, see Worth and Lechner's 
Beneath Apple DOS. Also, note that if 
you do not use disks, this runaround 
through DOS is unnecessary in your 
program (and won't work). Rewrite 
CONDOS simply to point HOOK at 
the address in CSW and to point CSW 
at HOOK. With the extra room gained 
in the routine, you can insert a test in 
the initializing routine (where CON- 
DOS is) to leave HOOK's print address 
alone if CSW is pointing to HOOK 
already. We'd love to build that test in 
for the DOS version as well, but PRNT 
is one of a number of programs that we 
swap in and out of memory as needed, 
all running from $300 up. To fit PRNT 
into $300 to $3CF, we had to leave out 
this error test. 

Printer Idiosynchracies and 
Other Notes 

Some printers and/or cards won't 
linefeed in response to a simple 
"PRINT" command. If nothing has 
been printed on a line, then PRINT: 
PRINT causes nothing, rather than two 
carriage returns on the printer. The 
Apple Parallel I/O card connected to a 
Centronics 737 gives us this problem. 
We don't know whether this is a defect 
in the card, in Apple's firmware, or in 
the 737. (Disconnecting the printer 
from the card for testing is an incon- 
venience for reasons not germaine to 
this article.) The problem exhibits 



itself in erroneous pagination of output 
from DOS Tool Kit's Editor/ Assembler, 
in some BASIC programs that issue 
"PRINT" commands to insert line- 
feeds, and in erroneous pagination by 
our program. For our program the solu- 
tion is simple: only one truly blank line 
is ever printed per page, so the line 
count is off by only one. Instead of 
specifying your page length less 1 for 
PL, specify the exact page length (e.g., 
66 instead of 65) and all will work well. 



Some interface boards do not con- 
nect themselves; i.e., do not result in 
the JSR DOSCON, which stores then- 
address in DOS until after the first 
PRINT command after PR#N has been 
executed. Others do connect them- 
selves by issuing their own "PRINT", 
with or without printer-specific default 
initialization commands. If you issue a 
CALL PRNT right after a PR#1 and your 
system hangs, then your printer, 
modem, or whatever is not yet "con- 



Listing 2: Print Control Demo 



0300 A9 
0302 85 
0304 20 
0307 F0 

0309 20 
030C C9 
03 0E F0 

0310 20 
0313 A4 

0315 8A 

0316 99 
0319 C6 
03 IB 10 
03 ID 

03 ID A0 
03 IF Bl 
0321 85 

0323 C8 

0324 Bl 
0326 85 
0328 A0 
032A Bl 
032C 8D 
032F C8 
0330 Bl 
0332 8D 
0335 A9 
0337 85 



04 
50 

B7 00 
10 

BE DE 
2C 
09 

F8 E6 
50 

C2 03 

50 

E7 

26 
36 
50 

36 

51 
00 
50 
4F 03 

50 

50 03 
AD 
36 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 



TTL 'V0KEY AND KANER, 1982' 

.llll.l.lll. I.J..I.I.... I...1II..L . . . . I . . I 

PRINT CONTROL 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



A SUBROUTINE TO CONTROL OUTPUT TO A 
PRINTER OR VIDEO SCREEN IN APPLESOFT 

BY 

JOHN R. V0KEY 

& 

H. CEM KANER 

MCMASTER UNIVERSITY 



» CHARACTERS AND STANDARD ADDRESSES 
* 

ORG $300 * CHANGE ONLY THIS TO RELOCATE 
COMMA EQU $2C » COMMA CHARACTER, HIGH BIT OFF 
CR EQU $8D » CARRIAGE RETURN CHARACTER 
CSWL EPZ $36 » APPLESOFT OUTPUT HOOK 
LINNUM EPZ $50 » WE USE THIS AS A TEMP LOCATION 
CHRGOT EPZ $B7 * FETCH CHARACTER AT TEXT POINTER 
DOSCON EQU $3EA » DOS CONNECT ROUTINE 
STH0UT EQU $DB3A . » PRINT A STRING 
CHKC0M EQU $DEBE » CHECK FOR COMMA AT TXTPTR 
GETBYT EQU $E6F8 » GET BYTE OF DATA. STORE IN X 
LINPRT EQU $ED24 * PRINT A,X 
PRBL2 EQU $F94A * PRINT 'X 1 SPACES 
CR0UT EQU $FD8E » PRINT A CARRIAGE RETURN 
DOCHAR EQU $FDF0 » (ADR OF C0UT1).THIS IS A DUMMY 
» ADDRESS. ACTUAL OUTPUT ADR IS STORED 2 BYTES PAST 
» 'HOOK' AT RUN-TIME, OVERWRITING DOCHAR ADDRESS. 



PRNTCTRL LDA 4 

STA LINNUM 

GETVAL JSR CHRGOT 
BEQ NEXTPAR 
JSR CHKCOM 
CMP COMMA 
BEQ NEXTPAR 
JSR GETBYT 
LDY LINNUM 
TXA 
STA PAGELEN,Y 

NEXTPAR DEC LINNUM 
BPL GETVAL 



* 5 PARAMS (0 TO 4). COUNT THEM 

* IN LINNUM AS GETBYT USES ALL REGS 
» RECOVER LAST CHR IN LIST. 

» DO NEXT PARAMETER 
» MUST BE COMMA IF NOT EOL 
» NEXT CHR ALSO COMMA? 

* YES, SKIP TO NEXT PARAMETER. 
« NO, STORE NEW VALUE IN X. 

* CURRENT PARAMETER NUMBER 

* CURRENT PARAMETER VALUE TO A 

* SAVE IT. 

» CYCLE TILL 5 DONE 



CONDOS LDY $26 * WHAT IS OUTPUT DEVICE ADDRESS? 

LDA (CSWL),Y » CSWL SHOULD HOLD IT, BUT DOESN'T 
STA LINNUM * POINTS TO DOS INSTEAD. $26 BYTES 
INY * LATER FIND ADDRESS OF ADDRESS OF 

LDA (CSWL),Y * DEVICE, I.E. 'TRUE' CSWL VALUE. 

STA LINNUM1 » SAVE THIS IN LINNUM, TO GET 

LDY t * THE ADDRESS ITSELF. 
LDA (LINNUM), Y * AT LAST. 

STA H0OK2 * AND SAVE IT HERE. NOTE THE 
INY * SELF-MODIFYING CODE. WE HAVE 

LDA (LINNUM), Y * A JSR AT HCOK1 SO THIS IS 

STA H00K3 * JSR TO TRUE OUTPUT ROUTINE. 

LDA HOOK » FINALLY POINT DOS' CSWL ADDRESS 
STA CSWL * AT THE OUTPUT INTERCEPT, WHICH 
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Listing 2 (Continued) 



0339 A9 
033B 85 
033D 20 
0340 
03^0 AD 
03^3 8D 
0346 20 
0349 48 
034A 4C 
034D 
034D 48 
034E 20 
0351 2C 
0354 F0 
0356 EE 

0359 C9 
035B FO 
035D AD 

0360 CD 
0363 90 
0365 20 

0368 68 

0369 60 
036A 
036A 8A 
036B 48 
036C AE 
036F FO 
0371 20 

0374 68 

0375 AA 

0376 4C 
0379 
0379 A9 
037B 8D 
037E AD 
0381 FO 
0383 EE 
0386 CD 

0389 BO 
038B 
038B A9 
038D 8D 

0390 AD 
0393 FO 

0395 48 

0396 20 
0399 CE 
039C DO 
039E 68 
039F 8D 
03A2 
03A2 98 
03A3 48 
03A4 8A 
03A5 48 
03A6 A9 
03A8 AO 
03AA 20 
03AD AE 
03B0 EE 
03B3 A9 
03B5 20 
03B8 20 
03BB 68 
03BC AA 
03BD 68 
03BE A8 
03BF 4C 
03C2 
03C2 
03C2 41 
03C3 OA 
03C4 01 
03C5 46 

03C6 OA 
03C7 00 
03C8 00 
03C9 



03 
37 

EA 03 

C3 03 

C8 03 

8E FD 

A2 03 



FO FD 
69 03 
03 

C7 03 
8D 
1C 

C7 03 
C5 03 
03 
8E FD 



C6 03 
03 
4A F9 



68 03 



64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 



00 

C7 03 
C2 03 
E7 

C8 03 101 

C8 03 102 

DF 103 

104 

00 105 

C8 03 106 

C3 03 107 

OD 108 

109 

8E FD 110 

C3 03 111 

F8 112 

113 

C3 03 114 

115 

116 

117 

118 

119 

C9 120 

03 121 

3A DB 122 

C4 03 123 

C4 03 124 

00 125 

24 ED 126 

8E FD 127 

128 

129 

130 

131 

65 03 132 

133 

134 

135 

136 

137 

138 

139 
140 
141 
142 



IDA /HOOK 
STA CSWL1 
JSR DOSCON 

LDA STEP 

STA LINCOUNT 

JSR CROUT 

PHA 

JMP TITLEOUT 



HOOK 



PRINT! 



PHA 

JSR DOCHAR 
BIT RTS1 
BEQ PRINT1 
INC CURPOS 
CMP CR 
BEQ PAGETEST 
MARGINTE LDA CURPOS 
CMP RIGHT 
BCC 0UT1 
JSR CROUT 
PLA 
RTS 



0UT2 
0UT1 
RTS1 



TAB TXA 
PHA 

LDX LEFT 
BEQ DONETAB 
JSR PRBL2 

DONETAB PLA 
TAX 
JMP 0UT1 

* 

PAGETEST LDA 

STA CURPOS 
LDA PAGELEN 
BEQ TAB 
INC LINCOUNT 
CMP LINCOUNT 
BCS TAB 
* 
STEPOVER LDA 

STA LINCOUNT 
LDA STEP 
BEQ TITLEOUT 
PHA 
STEPLOOP JSR CROUT 
DEC STEP 
BNE STEPLOOP 
PLA 

STA STEP 
* 

TITLEOUT TYA 
PHA 
TXA 
PHA 

LDA TITLE 
LDY /TITLE 
JSR STROUT 
LDX PAGENUM 
INC PAGENUM 
LDA 

JSR LINPRT 
JSR CROUT 
PLA 
TAX 
PLA 
TAY 

JMP 0UT2 
* 

* PARAMETER LOCATIONS 
PAGELEN DFS 1,65 
STEP DFS 1,1^ 
PAGENUM DFS 1,1 
RIGHT DFS 1,70 



* STARTS AT HOOK BELOW, SO WE CAN 

* FORMAT OUTPUT BEFORE SENDING IT. 

* FEED INTERCEPT ADDRESS TO DOS. 

* GET STEP OVER 

* SO PAGES WILL ALWAYS START HERE. 

* CLEAR AND TAB 

* DUMMY CHARACTER 

* PRINT PAGE AND GOODBYE. 

* SAVE CHARACTER TO GO 

* PRINT IT. REM DOCHAR IS DUMMY 

* THIS TESTS IF CTRL CHAR IN 'A 1 

* IF SO, DON'T INCREMENT CURPOS 

* NOT CTRL CHR. PRINT MOVES CURSOR 

* GOT A CARRIAGE RETURN? 

* YES, ADJUST AND TAB. 

* NOT CR. CHECK RIGHT MARGIN 

* PAST RIGHT MARGIN? 

* NO, EXIT. 

* DO CARRIAGE RETURN, THEN EXIT 

* RECOVER OUTPUT CHARACTER 

* RETURN TO CALLER. 

* SAVE X 

* ON THE STACK 

* GET LEFT MARGIN INDENTATION 

* IF 0, NO NEED TO TAB. 

* PRINT 'X' BLANKS 

* RECOVER X 

* AND EXIT. 

* COME HERE AFTER CARR. RETURN 

* CLEAR CURSOR POSITION 

* RECOVER PAGE LENGTH 

* INFINITE PAGE LENGTH 

* ADVANCE LINE COUNT 

* PAGELEN > LINECOUNT? 

* IF YES, DO TAB AND DONE. 

* SKIP LINES TO GET TO NEXT PAGE 

* CLEAR LINE COUNTER 

* GET STEPOVER 

* NO STEPOVER, NO HEADING 

* SAVE STEP 

* CARRIAGE RETURN 

* DO 'STEP' TIMES 

* RECOVER STEPOVER 

* AND RESTORE IT. 

* SAVE THE REGISTERS 

* ON THE STACK. 'A' ALREADY 

* THERE, SO NO NEED TO RESAVE IT 

* GET LBYTE OF TITLE 

* GOT HIGH BYTE 

* PRINT THE TITLE 

* GET PAGE NUMBER 

* AND ADVANCE IT FOR NEXT TIME 

* HIGH BYTE OF PAGE(SO MAX255 

* PRINT IT 

* CARRIAGE RETURN 

* RECOVER REGISTERS 

* RESTORE X 

* RESTORED Y 

* EXIT WITH CARRIAGE RETURN 

AND DEFAULTS 

* 66 LINES PER PAGE 

* 10 LINES BETWEEN PAGES 

* START AT PAGE 1 

* RIGHT MARGIN 70 



03C9 50 41 47 143 
03CC 45 20 20 
03CF 00 144 
03D0 145 



LEFT DFS 1,10 * LEFT MARGIN 10 

CURPOS DFS 1,0 * RT EDGE OF SCREEN OR PRINTER 

LINCOUNT DFS 1,0 * NO LINES YET PRINTED 

•MSB OFF USUAL FOR APPLESOFT STRINGS 

TITLE ASC 'PAGE ' 



END 



HEX 00 

END 



* TERMINATE BYTE FOR TITLE 



nected." Its address is still in CSW, 
where you expect to find DOS's address 
instead. In this case, RESET unhangs 
the system. Simply put a PRINT com- 
mand, or PRINT " ", after your PR#1, 
before CALLing our routine. 

Our routine assumes that Apple- 
soft, not Integer BASIC, is the currently 
active BASIC in the system. It uses 
Applesoft internal routines, so it 
will not work when Integer BASIC is 
active. To use it to print out Monitor 
disassembly listings, type FP if you're 
in Integer BASIC, then CALL -151 
and you can use the routine from 
the Monitor. 

You can use our routine to format 
the output of many otherwise print- 
inflexible utility programs, including 
some assemblers. In most cases it has 
to be reassembled to reside at an ad- 
dress that doesn't conflict with the 
utility's memory use. All addresses are 
defined relative to the origin in this 
program, so reassembly with the origin 
changed will take care of this com- 
pletely. Other programs, unfortunately, 
will not allow use of this formatter no 
matter where located. For example, if 
you want to three-hole punch the out- 
put from Apple's DOS Tool Kit Assem- 
bler without punching out the ad- 
dresses printed at the left margin, buy a 
Grappler or similar interface board for 
your printer. Our best efforts to date 
have not succeeded in convincing this 
program to talk to ours. Similarly, the 
DOS Tool Kit Assembler won't allow 
output to printers connected to the 
game I/O, which is what we drive our 
Teletypes through. Nor will it allow us 
to vector output to printers connected 
to a communications card through a 
linefeed insertion program, which we 
use to drive DECWriter printers (which 
don't linefeed after carriage returns 
unless they're told to). Suggestions for 
fixing the Apple Assembler code to 
allow us to print to these and other 
devices would be most welcome. 



John R. Vokey is an assistant professor of 
psychology at the University of Lethbridge 
in Alberta, Canada. H. Cem Kaner is at 
McMaster University in Hamilton, 
Ontario, Canada. Together they have 
published articles on the Apple II in BYTE, 
Nibble, and Compute! This is their first 
publication in MICRO. You can contact 
the authors at the Department of 
Psychology, University of Lethbridge, 
Lethbridge, Alberta, Canada T1K 3M4. 
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VIDEO TERMINAL BOARD 82-018 



This is a complete stand alone Video Terminal board. 
All that is needed besides this board is a parallel 
ASCII keyboard, standard NTSC monitor, and a 
power supply. It displays 80 columns by 25 lines of 
UPPER and lower case characters. Data is transfer- 
red by RS232 at rates of 110 baud to 9600 baud — 
switch selectable. The UART is controlled (parity etc.) 
by a 5 pos. dip switch. 

Complete source listing is included in the documen- 
tation. Both the character generator and the CRT pro- 
gram are in 2716 EPROMS to allow easy modification 
to your needs. 

This board uses a 6502 Microprocessor and a 6545-1 
CRT controller. The 6502 runs during the horz. and 
vert, blanking (45% of the time). The serial input port 
is interrupt driven. A 1500 character silo is used to 
store data until the 6502 can display it. 




Features 

• 6502 Microprocessor 

• 6545-1 CRT controller 

• 2716 EPROM char. gen. 

• 2716 EPROM program 

• 4K RAM (6116) 



2K EPROM 2716 

RS232 I/O for direct 

connection to computer 

or modem. 

80 columns x 25 line display 



Size 6.2" x 7.2" 

Output for speaker (bell) 

Power +5 700Ma. 

+ 12 50Ma. 

-12 50Ma. 



BAUD RATE 

GENERATOR 
110-9600 



PARALLEL 
KEYBOARD 

INPUT 

(TTL) 



VIDEO TERMINAL 
82-018 



UART 



U 



VIDEO 
DISPLAY 
CIRCUIT 



f 4 



COMPOSITE 
VIDEO 



SPEAKER 
(BELL) 



OUT IN 
RS232 I/O 



■12 



-12 GND. 



This board is available assembled and tested, or bare board with the two EPROMS 
and crystal. 

Assembled and tested #82-01 8A $199.95 

Bare board with EPROMS and crystal #82-01 8B $89.95 

Both versions come with complete documentation. 



John Bell Engineering, Inc. 



#249 



all products are a vailable from john bell engineering, inc. • 1014 center st., san carlos, ca 94070 
add sales tax in california • add 5% shipping & handling 3% for orders over $100 

(415) 592-841 1 10% outside u.s.a 

WILL CALL HOURS: 9am - 4pm 



SEND $1.00 FOR CATALOG 



ADD $1.50 FOR C.O.D. 
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Centronics Printer Driver 
for Your Microcomputer 



by Larry ft Hollibaugh 



Get the most out of your 
Centronics-compatible printer 
with the MX-Driver assembly- 
language program described 
here. 



MX-Driver 

requires: 

6502 microcomputer with one 
parallel port and a Centronics- 
compatible printer 



The Epson MX-80 printer is touted in 
advertisements as the best-selling 
printer in the world. It is certainly an 
affordable dream-come-true for many 
computer hobbyists. The MX-80 has 
been improved twice since its intro- 
duction, making it an even greater 
value. These improvements come in 
the form of new ROM sets that plug in- 
to the logic board inside the printer. 
The Graftrax-80 option provides bit- 
map graphics at up to 120 dots-per-inch 
horizontally, by 72 dots-per-inch ver- 
tically. This option adds many fea- 
tures, including line spacing to n/216 
of an inch, form length to 255 lines 
(original ROMs allow maximum form 
length of only 66 lines), slashed zeros, 
and an italics character set. Graftrax- 
Plus is the latest enhancement to both 
the MX-80 and the MX-100. Graftrax- 
Plus has most of the features of 
Graftrax-80 as well as underline, 
superscript, subscript, adjustable right 
margin, and more. 

Here I explain how you connect 
your MX-80 printer to the Rockwell 
AIM 65. Included are the driver 
routines that provide access to the 
many features of your printer through 
the user device function of the AIM 65. 



With minor changes these routines can 
be used with printers other than Epson. 

The MX-80 comes standard with a 
Centronics-compatible parallel inter- 
face. Details on this interface are pro- 
vided in Appendix K of the original 
MX-80 user's manual, or Appendix of 
the Graftrax-Plus manual. The inter- 
face consists of eight data lines, three 
handshaking lines, and several special 
printer, status, and control signals. 

Connecting the MX-80 to the 
Rockwell AIM 65 computer through its 
parallel interface is straightforward and 
simple. Table 1 shows the connections 
to drive the MX-80 through Port B of 
AIM'S User 6522 VIA (Versatile Inter- 
face Adaptor). Only the eight data lines 
and two of the handshake lines are re- 
quired for basic communication. (Use 
of the other lines is left up to the 
reader's imagination.) A cable con- 
sisting of ten twisted pairs should be 
used between the computer and the 
printer. (Ribbon cable may be used if 
the cable is kept short.) At the printer 
end, using an Amphenol-type 57-30360 



or equivalent connector, connect one 
line of each pair to each signal pin. 
Connect the other line of each pair to 
the associated return pin. (If using rib- 
bon cable, alternate signal and ground 
lines.) At AIM's Application Connec- 
tor, hook up the signal lines as shown 
in table 1 using a Vector-type R-644 or 
equivalent connector, and tie all the 
return lines to GND. 

The STROBE line (pin 1) indicates 
to the printer that data is available, and 
the ACKNLG line (pin 10) signals when 
the printer is ready to accept more data. 
The 6522 VIA can be configured to han- 
dle this handshaking automatically. 
The software to handle the interface 
consists of two parts: a routine to 
initialize the port as outputs with pro- 
per handshaking, and a routine to 
transmit characters. These functions 
are provided by the routines CTINIT 
and CTOUT in listing 1. 

The AIM firmware provides the 
ability to direct output to any of several 
output devices. The subroutine 
WHEREO ($E871) allows selection by 



Table 1: Connections between the AIM 85's 


Application Connector and the MX-80's 


Centronics Connector. 












AIM 65 Centronics 




Appl. 


Signal 


Signal 


Return 


Signal 


Conn. 


Name 


Pin 


Pin 


Name 


19 


CB2 


1 


19 


STROBE 


9 


PB0 


2 


20 


DATA 1 


10 


PB1 


3 


21 


DATA 2 


11 


PB2 


4 


22 


DATA 3 


12 


PB3 


5 


23 


DATA 4 


13 


PB4 


6 


24 


DATA 5 


16 


PB5 


7 


25 


DATA 6 


17 


PB6 


8 


26 


DATA 7 


15 


PB7 


9 


27 


DATA 8 


18 


CB1 


10 


28 


ACKNLG 


1 


GND 
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issuing the OUT = prompt. Answering 
this prompt with U (for User device) 
transfers control to the program 
pointed to by UOUT (at address $10A). 
This is a vector or hook that allows ac- 
cess to a user-defined output device. 
AIM's output subroutine OUTALL 
|$E9BC) now also transfers control 
through this hook. 

The 6502' s carry flag is clear for an 
initialization request from WHEREO, 
and set for character output from 
OUTALL. If you put the address of 
CTOT in listing 1 in the UOUT vector, 
you will have a basic Centronics- 
compatible parallel interface as the 
User Output Device. At CTOT, the 
carry flag is first tested to see if AIM 
wants to initialize the port or output a 
character. Initialization identifies 
itself, sets up the output port with full 
handshaking, and sends a couple of 
nulls to the printer to start the hand- 
shaking sequence. If the printer is off- 
line at this point, nothing more hap- 
pens until it is put on-line. Output goes 
to CTOUT1 | the character from OUT- 
ALL is already on the stack). This rou- 
tine waits if the printer is busy, off- 
line, or in an error condition, and sends 
the character when ready. 

Listing 1 provides an alternate way 
to print text. When you put the address 
of MXOT in AIM'S UOUT vector you 
get the MX-Driver, a sophisticated 
printer driver with skip-over-perf, a 
choice of six or eight lines per inch, the 
ability to define a left margin, and an 
easy way to select the various printer 
options. The initialization calls from 
WHEREO now go to MXINIT and out- 
put calls from OUTALL go to MXOUT. 

MXINIT first calls the CTINIT 
subroutine discussed earlier, then re- 
quests lines per inch with the LPI = 
prompt. The four legal answers to this 
prompt are 6, 8, SPACE, and RETURN. 
Anything else makes the printer beep 
and the LPI= prompt is reissued. 
Answering 6 selects six lines per inch, 
66 lines per page, and 62 lines of print 
per page (at which time a form feed is 
generated J. Answering 8 selects eight 
lines per inch, 88 lines per page, and 
82 lines of print per page. SPACE or 
RETURN here ends the initialization 
sequence. This provides an easy way to 
continue printing from where the last 
printing left off. 

The next prompt, MARGIN = , 
allows you to specify a left margin 
width in decimal. Default is no margin. 
The last prompt is OPTS = . Here is 
where the real power of the MX-Driver 



Listing 1: Basic Centronics interface and sophisticated printer driver for Epson 
MX-80 and MX-100 printers with Graftrax-Plus. Assembled to reside at the top of 
RAM on a 4K AIM 65. 



LINE* 


LOC 


0001 


0000 


0002 


0000 


0003 
0004 
0005 
0006 
0007 


0000 
0000 
0000 
0000 
0000 


0008 


0000 


0009 
0010 
001 1 
0012 
0013 
0014 
0015 
0016 
0017 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0018 


0000 


0019 
0020 
0021 
0022 
0023 


0000 
0000 
0000 
0000 
0000 


0024 


0000 


0025 
0026 
0027 
0028 
0029 


0000 
0000 
0000 
0000 
0000 



CODE 



LINE 



0030 0000 

0031 0E00 



0032 
0033 
0034 
0035 
0036 



0037 
0038 



0E00 
0E01 
0E02 
0E03 
0E04 



0E04 
0E04 



0039 0E0S B0 5A 



0040 
0041 
0042 



0044 
004S 
0046 
0047 
0048 
0049 
0050 
00S1 

0052 
0053 
0054 



0E07 
0E09 
0E0C 



0043 0E0F 



0E0F 
0E11 
0E14 
0E16 
0E19 
0E1C 
0E1E 
0E20 

0E23 
0E2S 
0E28 



0055 
0*56 

0057 

0058 

0i!>59 
0060 
0061 
0062 
0063 
0064 
006S 
0066 
0067 
0068 
0069 
0070 
0071 
0072 

0073 
0074 
0075 
0076 
0077 
0078 
0079 



0E2B 
0E2B 

0E2B 

0E2D 

0E2D 
0E30 
0E32 
0E35 
0E38 
0E3A 
0E3C 
0E3E 
0E40 
0E42 
0E44 
0E46 
0E48 
0E4B 

0E4D 
0E4E 
0E51 
0E54 
0E5S 
0E58 
0ESB 



0E5E 
0E5E 



A0 00 
20 92 0F 
EE 01 0E 



A9 FF 
SO 02 A0 
A9 18 
8D 0E A0 
AD 0C A0 
29 0F 
09 A0 
8D 0C A0 

A9 00 
8D 00 A0 
4C 60 0E 



20 GF 0E 
A0 0D 
20 92 0F 
20 73 E9 
C9 58 
F0 11 
C9 36 
F0 0D 
C9 20 
F0 17 
C9 0D 
F0 13 
20 5E 
D0 E3 



0082 0E60 



0083 
0084 
0085 
0086 
0087 



0E60 
0E61 
0E64 
0E66 
0E68 
0E69 
0E6C 



0090 0E6D 



EPSON MX80/MX100 PRINTER DRIVER FOR THE AIM-65 
BY LARRY R. HOLLIBAUGH 



SUPPORTS TWO FORMS OF PRINTER COMMUNICATION: 

1. BASIC CENTRONICS PARALLEL INTERFACE 

2. SOPHISTICATED PRINTER DRIVER PROVIDING 
INITIALIZATION OPTIONS, MARGINS. LINE 
FEED SUPRESSION, AND SKIP-OVER-PERF 



AIM SUBROUTINES AND MONITOR RAM 



iACCUM TO D/P 

iREAD KBD WITH ECHO 

iREAD KBD WITH DELETE ALLOWED 

iCR LF TO D/P 

;GET FOUR DIBIT NUMBER 

iPACK ASCII CHAR INTO HEX BYTE 

;*ADDIN> RESULT 

i DISPLAY CURSOR 

i DISPLAY BUFFER 



;DATA RESISTER B 

5DATA DIRECTION RESISTER B 

i PERIPHERAL CONTROL REGISTER 

i INTERUPT FLA6 REGISTER 

; INTERUPT ENABLE REGISTER 



OUTPUT 


=»E97A 


REDOUT 


■=*E973 


RDRUB 


=$E95F 


CRLOW 


=«EA13 


ADO IN 


=*EAAE 


PACK 


=«EA84 


ADDR 


=*A41C 


CURP02 


=*A415 


D I BUFF 


=*A438 


; AIM USER 


UDRB 


=*A000 


UDDRB 


=»A002 


UPCR 


=*A00C 


UIFR 


=»A00D 


UIER 


=*A00E 


i EQUATES 


CR 


=»D 


LF 


=*A 


VTAB 


=*B 


FFEED 


=*C 


ESC 


=*1B 



*=»E00 
PROGRAM VARIABLES (MUST BE RAM) 



LINCNT *=»+l 
MRBFL6 »=*+l 
LINMAX »=*+l 
MARS IN »=*+l 
TEMP #=*+! 



JUNE COUNT 

; MARGIN FLAG (0=SET MARGIN) 

; MAX I MUM LINES ON PAGE 

i MARGIN WIDTH (IN BCD) 

; TEMPORARY STORAGE 



ACCESS TO BASIC CENTRONICS PARALLEL INTERFACE 
THROUGH THE AIM USER OUTPUT VECTOR 



BCS CTOUT1 



! BRANCH ON CHARACTER OUTPUT 



LDY HCNTMSG-LITS 

JSR PMSB ; IDENTIFY SELF 

INC MRGFLG i DO NEXT FFEED THRU MXOUT 

CTINIT : INITIALIZE PARALLEL PORT 



CTINIT LDA #»FF 
STA UDDRB 
LDA #*18 
STA UIER 
LDA UPCR 
AND *SF 
ORA #*A0 
STA UPCR 

LDA #0 
STA UDRB 
JMP CTOUT 



SALL BITS OUTPUT 

; DISABLE INTERUPTS (JUST IN CASE) 

iSET CB1 TO NEGATIVE EDGE DETECT 
iSET CB2 TO AUTO PULSE MODE 

iSEND A NULL TO GET THINGS STARTED 
;SEND ANOTHER, TO BE SURE 



j ENTRY TO USE THE MX-DRIVER THROUGH THE 
; AIM USER OUTPUT VECTOR 

MXOT BCS MXOUT ; BRANCH ON CHARACTER OUTPUT 

; MXINIT : INITIALIZE THE PRINTER FOR OUTPUT 

MXINIT JSR CTINIT ; INITIALIZE CENTRONICS PORT 
GETLPI LDY #LPIMSG-LITS 



0E 



48 

20 D5 0E 

20 FF 0E 

68 

20 2C 0F 

20 4F 0F 

4C 13 EA 



48 

AO 0D A0 

29 10 

F0 F9 

68 

8D 00 A0 

60 



JSR PMSG 
JSR REDOUT 
CMP #'8" 
BEQ SETPRM 
CMP #'6' 
BEQ SETPRM 
CMP #' ' 
BEQ OLDPRM 
CMP #CR 
BEQ OLDPRM 
JSR BELL 
BNE GETLPI 

SETPRM PHA 

JSR BETMRG 

JSR GETOPT 

PLA 

JSR SETMX 

JSR SNDOPT 

OLDPRM JMP CRLOW 



i REQUEST LINES PER INCH 

;GET REPLY 

;8 LINES PER INCH'' 

;6 LINES PER INCH - ? 

; SPACE MEANS USE OLD PARAMETERS 

; RETURN ALSO 

;MUST BE ERROR 
;ASK AGAIN 

;SAVE LPI 

jGET MARGIN WIDTH 

;GET OPTIONS 

i RESET PRINTER AND SET LPI 
iSEND REQUESTED OPTIONS 



i BELL : RING BELL ON PRINTER 

BELL LDA #7 i ASCI I BELL CHAR 

; CTOUT : SEND CHARACTER TO CENTRONICS PORT 

CTOUT PHA 
CTOUT 1 LDA UIFR 

AND #*10 

BEQ CTOUT 1 

PLA 

STA UDRB 

RTS 



iGET VIA STATUS 
;IS PRINTER READY? 
!NO, WAIT 



iYES, SEND CHARACTER 
MXOUT : SEND CHAR, WITH MARGINS AND SKIP-OVER-PERF 
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Listing 1 ( 


continued) 








LINES LOC 


CODE 




LINE 






0091 


0E6D 


68 






MX OUT 


PLA 




0092 


0E6E 


C9 


FF 






CMP #*FF 


i IGNORE AIM'S NULL CODES 


0093 


0E70 


F0 


56 






BEQ MXDUN 




0094 


0E72 


48 






MXOUT1 


PHA 




0095 


0E73 


29 


7F 






AND »»7F 


; STRIP MSB 


0096 


0E75 


C9 


0A 






CMP #LF 


; IGNORE LINE FEEDS 


0097 


0E77 


F0 


4E 






BEQ MXRET 




0098 


0E79 


C9 


0C 






CMP #FFEED 


;form FEED? 


0099 


0E7B 


D0 


0C 






BNE MX0UT2 


(NOPE 


0100 


0E7D 


AD 


00 


0E 




LDA LINCNT 


; already at top of form? 


0101 


0E80 


D0 


22 






BNE MXOUT3 


iNOPE 


0102 


0E82 


AD 


01 


0E 




LDA MRGFLG 


i FIRST CHAR IN LINE? 


0103 


0ES5 


D0 


ID 






BNE MX0UT3 


;no. do IT 

{YES, SUPRESS EXTRAS 


0104 


0E87 


F0 


45 






BEQ SMF 


0105 


0E89 


AD 


01 


0E 


MXQUT2 


LDA MRGFLG 


iTIME TO DO MARGIN? 


0106 


0E8C 


D0 


16 






BNE MX0UT3 


!NOT YET 


0107 


0E8E 


EE 


01 


0E 




INC MRGFLG 


iYES, CLEAR FLAG 


0108 


0E91 


AD 


03 


0E 




LDA MARGIN 




0109 


0E94 


F8 






MRGLUP 


SED 




0110 


0E95 


38 








SEC 




0111 


0E96 


E9 


01 






SBC #1 


i DECREMENT IN DECIMAL 


0112 


0E9S 


D8 








CLD 




0113 


0E99 


30 


09 






BMI MX0UT3 


SDONE IF PAST ZERO 


0114 


0E9B 


4S 








PHA 




0115 


0E9C 


«9 


20 






LDA #' ' 




0116 


0E9E 


20 


60 


0E 




JSR CTOUT 


; PR I NT A SPACE 


0117 


0EA1 


68 








PLA 




011S 


0EA2 


10 


F0 






BPL MRGLUP 


iAND LOOP 


0119 


0EA4 


68 






MXOUT3 


PLA 




0120 


0EA5 


48 








PHA 




0121 


0EA6 


20 


60 


0E 




JSR CTOUT 


;SO. PRINT IT 


0122 


0EA9 


29 


7F 






AND »»7F 


! STRIP MSB 


0123 


0EAB 


C9 


0C 






CMP #FFEED 


SFORM FEED? 


0124 


0EAD 


F0 


1A 






BEQ NEUPAG 


iYES, RESET TOP OF PAGE 
i RETURN? 


0125 


0EAF 


C9 


0D 






CMP #CR 


0126 


0EB1 


F0 


04 






BEQ NEWLIN 


iYES 


0127 


0EB3 


C9 


»B 






CMP #VTAB 


i VERTICAL TAB -7 


0128 


0EB5 


D0 


1* 






BNE MXRET 


SNO, WE'RE DONE 
i COUNT LINE 


0129 


0EB7 


EE 


00 


0E 


NEWLIN 


INC LINCNT 


0130 


0EBA 


AD 


00 


0E 




LDA LINCNT 




0131 


0EBD 


CD 


02 


0E 




CMP LINMAX 


iSKIP OVER PERF YET? 


0132 


0EC0 


90 


0C 






BCC SMF 


iNOT YET 


0133 


0EC2 


A9 


0C 






LDA #FFEED 


iYES, DO FORM FEED 


0134 


0EC4 


20 


72 


0E 




JSR MXOUT1 




0135 


0EC7 


68 






MXRET 


PLA 




0136 


0ECS 


60 






MX DUN 


RTS 




0137 


0EC9 


A9 


00 




NEWPAB 


LDA *0 


iZERO LINE COUNT 


0138 


0ECB 


8D 


00 


0E 




STA LINCNT 




0139 


0ECE 


A9 


00 




SMF 


LDA *0 


iSET MARGIN FLAG 


0140 


0ED0 


8D 


01 


0E 




STA MRGFLB 




0141 


0ED3 


68 








PLA 




0142 


0ED4 


60 








RTS 




0143 


0ED5 








; BETMRG : GET MARGIH 


WIDTH 


0144 


0ED5 


AD 


1C 


A4 


BETMRG 


LDA ADDR 


iSAVE ADDR 


0145 


0EO8 


48 








PHA 




0146 


0ED9 


AD 


ID 


A4 




LDA ADDR+1 




0147 


0EDC 


48 








PHA 




0148 


0EDD 


20 


13 


EA 


BTMRG1 


JSR CRLOW 




0149 


0EE0 


A0 


13 






LDY #MRGMSG-LITS 


0150 


0EE2 


20 


92 


0F 




JSR PMSe 


{REQUEST MARGIN 


0151 


0EE5 


20 


AE 


EA 




JSR ADDIN 


iGET IT 


0152 


0EE8 


90 


06 






BCC MRGOK 




0153 


0EEA 


20 


5E 


0E 




JSR BELL 


) SIGNAL ERROR 


0154 


0EED 


4C 


DD 


0E 




JMP GTMRQ1 


iAND ASK AGAIN 


0155 


0EF0 


AD 


1C 


A4 


MRGOK 


LDA ADDR 


iUSE ONLY LAST 2 NUMBERS ENTERED 


0156 


0EF3 


8D 


03 


0E 




STA MARGIN 




0157 


0EF6 


68 








PLA 


{RESTORE ADDR 


0158 


0EF7 


8D 


ID 


A4 




STA ADDR+1 




0159 


0EFA 


68 








PLA 




0160 


0EFB 


8D 


1C 


A4 




STA ADDR 




0161 


0EFE 


60 








RTS 




0162 


0EFF 








; GETOPT : GET OPTIONAL PRINTER MODES 


0163 


0EFF 


A0 


IB 




GETOPT 


LDY #OPTMSG-LITS 


0164 


0F01 


20 


92 


0F 




JSR PMSG 


{REQUEST OPTIONS 


0165 


0F04 


AD 


15 


A4 




LDA CURP02 




0166 


0F07 


8D 


04 


0E 




STA TEMP 


iSAVE STARTING BUFFER POS 


0167 


0F0A 


A0 


00 






LDY 40 




0168 


0F0C 


20 


5F 


E9 


OPT1 


JSR RDRUB 


{INPUT CHARACTERS 


0169 


0F0F 


C9 


20 






CMP #' ' 


{UNTIL SPACE 


0170 


0F11 


F0 


07 






BEQ OPT IN 




0171 


0F13 


C9 


0D 






CMP #CR 


{OR RETURN 


0172 


0F15 


F0 


03 






BEQ OPT IN 




0173 


0F17 


C8 








I NY 


•NEXT CHARACTER 


0174 


0F18 


10 


F2 






BPL OPT1 




0175 


0F1A 


98 






OPT IN 


TYA 




0176 


0F1B 


18 








CLC 




0177 


0F1C 


6D 


04 


0E 




ADC TEMP 


iCALC TRUE BUFFER INDEX 


0178 


0F1F 


C9 


3C 






CMP #60 


iPAST END OF DIBUFF^ 


0179 


0F21 


90 


02 






BCC OPTOK 




0180 


0F23 


A9 


3B 






LDA #59 


iSTOP HERE 


0181 


0F25 


A8 






OPTOK 


TAY 




0182 


0F26 


A9 


00 






LDA #0 




0183 


0F28 


99 


38 


A4 




STA DIBUFF.Y 


(MARK END 


0184 


0F2B 


60 








RTS 




0185 


0F2C 








; SETMX : RESET MX80 


AND SET LINES PER INCH 


0186 


0F2C 


48 






SETMX 


PHA 


{SAVE REQUESTED LP I 


0187 


0F2D 


A9 


0C 






LDA »FFEED 




0188 


0F2F 


20 


72 


0E 




JSR MXOUT1 


{GO TO TOP OF FORM 


0189 


0F32 


A2 


00 






LDX #RESET-INITS 




0190 


0F34 


20 


3E 


0F 




JSR MXILUP 


{NOW RESET PRINTER 


0191 


0F37 


68 








PLA 




0192 


0F38 


C9 


38 






CMP #'8' 


iB LP I REQUESTED? 


0193 


0F3A 


D0 


8C 






BNE MXDUN 


{NO 


0194 


0F3C 


A2 


09 






LDX #LPIB-INITS 


{SET 8 LPI, 82 LPP 


0195 


0F3E 








; MXILUP : SEND INIT 


PARMS TO PRINTER VIA X 


0196 


0F3E 


BD 


C0 


0F 


MXILUP 


LDA INITS.X 
BMI SETLPP 


{NEXT PARM 


0197 


0F41 


30 


06 






iQUIT ON MINUS 


019B 


0F43 


20 


60 


0E 




JSR CTOUT 


iBEND TO PRINTER 


0199 


0F46 


E8 








INX 




0200 


0F47 


D0 


F5 






BNE MXILUP 


(BRANCH ALWAYS 


0201 


0F49 


29 


7F 




SETLPP 


AND »*7F 


{STRIP MSB 


0202 


0F4B 


8D 


02 


0E 




STA LINMAX 


{MAX LINES OF PRINT PER PAGE 


0203 


0F4E 


60 








RTS 





comes into play. You can select any of 
the escape sequences and control codes 
recognized by the printer, and change 
the number of lines of print per page. 
To select an escape sequence, enter the 
ASCII character that follows the escape. 
(Refer to the printer manual for the pro- 
per codes.) For example, the combina- 
tion of emphasized and double-strike 
print modes produces a high quality 
print. On the Epson ESC,E enables em- 
phasized and ESC ; G enables double 
strike, so typing EG (followed by 
SPACE or RETURN) sets these modes. 
Absolute hex numbers can also be sent 
by typing a dollar sign |$) followed by 
two hex digits. In this way, control 
codes and complex escape sequences 
can be sent. With Graftrax-Plus, you 
can print at 66 characters per eight-inch 
line by enabling double-width and 
compressed characters at the same 
time. To do this, type W$01$0F. W 
sends ESC, W (double-width mode con- 
trol), $01 turns the mode on, and $0F is 
CTRL-0 (enable compressed). Change 
the lines of print per page by preceding 
two hex digits with a single quote mark 
('). This number is not sent to the 
printer but is used by the MX-Driver for 
forms control. To set the MX-80 to 
eight dots per line feed, 99 lines per 
page, with 93 lines of print per page, 
enter A$08C$63'5D for Graftrax-80, or 
A$08'5D for Graftrax-Plus. (With 
Graftrax-Plus, the form length has 
already been set to 11 inches.) Be 
careful when answering this prompt, as 
it does no error checking. Use the 
DELETE key to edit, and type SPACE 
or RETURN when correct. 

Now the MX-Driver sends a form 
feed and resets the printer. It sets up for 
eight lines per inch if selected and 
sends the requested options. 

As characters are sent out by 
OUTALL, they go to MXOUT. This 
routine ignores the nulls ($FF) and line 
feeds sent out by AIM's CRLF routine 
when in TTY mode. Be sure the MX-80 
is set up to do a line feed automatically 
with carriage return by setting switch 
2-3 ON. (See the original MX-80 user's 
manual, Appendix C, or the Graftrax- 
Plus manual, Appendix E.) This way the 
printer operates properly whether AIM 
is in KB or TTY mode, since the mode 
affects whether or not OUTALL sends 
line feeds. 

MXOUT will not send two suc- 
cessive form feeds. This saves you from 
shoving out a whole blank page if the 
last job on the printer left the paper at 
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the top of a form. Margins are now in- 
serted if indicated by the last character 
having been a carriage return, vertical 
tab, or form feed, and the character to be 
printed is sent via the CTOUT 
subroutine. Finally, MXOUT checks for 
form feed, carriage return, and vertical 
tab characters for special handling. Form 
feed zeros out the line count and flags 
for a margin. Carriage return or vertical 
tab advances the line count, generates a 
form feed if the maximum number of 
lines have been printed, and flags for a 
margin. 

Now you have two ways to send 
characters to your printer. If the pro- 
gram sending the characters to the Ac- 
tive Output Device is doing all of its 
own formatting and control, or sending 
graphics or other non-ASCII, you can 
use the bare-bones Centronics inter- 
face. Every character sent out this way 
goes direcly to the printer. 

To print ASCII text that knows 
nothing of the special requirements and 
capabilities of the printer, you can use 
the MX-Driver to handle the basic for- 
matting. Unfortunately, this involves 
modifying the UOUT vector every time 



Listing 2 (continued) 



LINE* 


LOC 


CODE 




LINE 








0204 


0F4F 








i SNDOPT 


: SEND REQUESTED OPTIONS TO PRINTER 


0205 


0F4F 


AC 


04 


0E 


SNDOPT 


LDY 


TEMP 


; INDEX INTO DISPLAY BUFFER 


0206 


0F52 


B9 


38 


A4 


NXTOPT 


LDA 


DIBUFF.Y 


;GET NEXT OPTION 


0207 


0F55 


F0 


3A 






BEQ 


OPTRET 


; ZERO MARKS END 


0208 


0F57 


C9 


24 






CMP 


#'*' 


iHEX NUMBER? 


0209 


0F59 


F0 


04 






BEQ 


HEXNUM 


;YES 


0210 


0F5B 


C9 


27 






CMP 


#*27 


; SINGLE QUOTE FOR CHG LINMAX 


0211 


0F5D 


D0 


25 






BNE 


ESCSEQ 




0212 


0F5F 


8D 


04 


0E 


HEXNUM 


STA 


TEMP 


iSAVE BYTE USE MARKER 


0213 


0F62 


A2 


02 






LDX 


#2 


;2 CHARACTERS TO PACK 


0214 


0F64 


C8 






PKBYT 


INY 






0215 


0F65 


B9 


38 


A4 




LDA 


DIBUFF.Y 


;NEXT CHARACTER 


0216 


0F68 


F0 


27 






BEQ 


OPTRET 


i ZERO MARKS END 


0217 


0F6A 


20 


84 


EA 




JSR 


PACK 


;PACK IT IN 


0218 


0F6D 


B0 


15 






BCS 


ESCSEQ 


•NOT HEX 


0219 


0F6F 


CA 








DEX 




; COUNT IT 


0220 


0F70 


D0 


F2 






BNE 


PKBYT 


SAND LOOP 


0221 


0F72 


AE 


04 


0E 




LDX 


TEMP 




0222 


0F75 


E0 


24 






CPX 


#'*' 


iTO PRINTER? 


0223 


0F77 


F0 


05 






BEQ 


SNDBYT 




0224 


0F79 


8D 


02 


0E 




STA 


LINMAX 


iNEW MAX LINES PER PAGE 


0225 


0F7C 


D0 


10 






BNE 


ESC1 


; BRANCH ALNAYS 


0226 


0F7E 


20 


60 


0E 


SNDBYT 


JSR 


CTOUT 


J SEND TO PRINTER 


0227 


0F81 


4C 


SE 


0F 




JMP 


ESC1 




0228 


0F84 


48 






ESCSEQ 


PHA 




;SEND AS ESCAPE SEQUENCE 


0229 


0F85 


A9 


IB 






LDA 


#ESC 




0230 


0F87 


20 


60 


0E 




JSR 


CTOUT 


iSEND ESCAPE FIRST 


0231 


0F8A 


68 








PLA 






0232 


0F8B 


20 


60 


0E 




JSR 


CTOUT 


SAND NOW CHARACTER 


0233 


0F8E 


ca 






ESC1 


INY 






0234 


0F8F 


10 


CI 






BPL 


NXTOPT 


; loop 


0235 


0F91 


60 






OPTRET 


RTS 






0236 


0F92 








; pmsg : 


DISPLAY MESSAGE FROM LITERAL TABLE VIA Y 


0237 


0F92 


B9 


9E 


0F 


PMSQ 


LDA 


LITS.Y 


;GET A CHAR 


0238 


0F95 


F0 


06 






BEQ 


PDUN 


iQUIT ON ZERO 


0239 


0F97 


20 


7A 


E9 




JSR 


OUTPUT 


;SEND IT 


0240 


0F9A 


C8 








INY 






0241 


0F9B 


D0 


F5 






BNE 


PMSG 


;next char 


0242 


0F9D 


60 






PDUN 


RTS 






0243 


0F9E 








; LITERAL TABLE 




0244 


0F9E 








LITS 


=* 






0245 


0F9E 


20 


43 




CNTMSG 


.BYT ' CENTRONICS ' ,0 


0246 


0FA0 


00 














024 7 


0FAB 


20 


4C 




LPIMSQ 


.BYT ' LPI='.0 




0248 


0FAD 


00 














0249 


0FB1 


20 


4D 




MRGMSG 


.BYT ' MARGIN' ,0 




02M3 


0FB3 


00 














•V)l 


0FB9 


20 


4F 




OPTMSG 


.BYT ' OPTS=',0 




0252 


0FBB 


00 















Perry PerjpIieraIs RepAJRs KIMs!! 

(SYMs ANd AIMs Too) 

• We will Diagnose, Repair, and Completely Test your Single Board Computer 

• We Socket all replaced Integrated Circuits 

• You receive a 30-day Parts and Labor Warranty 

• Your repaired S.B.C. returned via U.P.S. — C.O.D., Cash 

Don't delay! Send us your S.B.C. for repair today 
Ship To: (Preferably via U.P.S.) 

Perry Peri'pIieraIs 

6 Brookhaven Drive 
Rocky Point, NY 11778 

KIM-1 RepUcement Modules 

• Exact replacement for MOS/Commodore KIM-1 S.B.C. 

• Original KIM-1 firmware — 1K and 4K RAM versions 

RepUcement KIM-1 KeyboARds 

• Identical to those on early KIMS — SST switch in top right corner 

• Easily installed in later model KIMs 

Perry Peripherals is an authorized HDE factory service center. 

Perry Peripherals carries a full line of the acclaimed HDE expansion components for you KIM, SYM, and AIM, 
including RAM boards, Disk Systems, and Software like HDE Disk BASIC V1. 1, Yes, we also have diskettes. For 
more information write to: P.O Box 924, Miller Place, NY 11764, or Phone (516) 744-6462. 
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Listing 1 (continued) 










LINE# 


LOC 


CODE 


LINE 








0253 


0FBC 




; TABLE OF INITIALIZATION PARMS FDR GRAFTRAX-PLUS 


0254 


0FC0 




INITS 


=* 






0255 


0FC0 


IB 


RESET 


-BYT 


ESC, '6' 


i RESET PRINTER 


0256 


0FC1 


40 










0257 


0FC2 


IB 




.BYT 


ESC, '0' 


; RESET SOP (ME DO OUR OWN) 


0258 


0FC3 


4F 










0259 


0FC4 


IB 




.BYT 


ESC, 'C',0, 


11JF0RM LENGTH 11 INCHES 


0260 


0FC5 


43 










0261 


0FC6 


00 










0262 


0FC7 


06 










0263 


0FC8 


BE 




.BYT 


62+128 


i62 ACTIVE LINES PER PAGE 


0264 


0FC9 


IB 


LPI8 


.BYT 


ESC,'0' 


;8 LINES PER INCH 


0265 


0FCA 


30 










0266 


0FCB 


D2 




.BYT 


82+128 


;82 ACTIVE LINES PER PA6E 


0267 


0FCC 






.END 






Listing 


2; Alternate 


printer Initialization table for Epson MX-80 with Qraftrax-80. 


Replaces table at the end of listing 1 






0253 


0FBC 




; TABLE OF 


INITIALIZATION PARMS FOR BRAFTRAX-80 


0254 


0FC0 




INITS 


=# 






0255 


0FC0 


IB 


RESET 


.BYT 


ESC,'=' 


5 CLEAR M.S.B. FUNCTION 


0256 


0FC1 


3D 










0257 


0FC2 


IB 




.BYT 


ESC, '5' 


; ENABLE STANDARD CHAR SET 


0258 


0FC3 


35 










0259 


0FC4 


IB 




.BYT 


ESC, 'F' 


i CANCEL EMPHASIZED MODE 


0260 


0FC5 


46 










0261 


0FC6 


IB 




-BYT 


ESC, 'H' 


; CANCEL DOUBLE STRIKE MODE 


0262 


0FC7 


48 










0263 


0FCB 


12 




.BYT 


*12 


; CANCEL COMPRESSED CHAR MODE 


0264 


0FC9 


IB 




.BYT 


ESC, '2" 


;6 LINES PER INCH 


0265 


0FCA 


32 










0266 


0FCB 


IB 




.BYT 


ESC, 'C ,66 


;66 LINES PER PAGE 


0267 


0FCC 


43 










0268 


0FCD 


42 










0269 


0FCE 


BE 




.BYT 


62+128 


;62 ACTIVE LINES PER PAGE 


0270 


0FCF 


IB 


LPIB 


.BYT 


ESC, '0' 


;8 LINES PER INCH 


0271 


0FD0 


30 










0272 


0FD1 


IB 




.BYT 


ESC, "C ,88 


;B8 LINES PER PAGE 


0273 


0FD2 


43 










0274 


0FD3 


58 










0275 


0FD4 


D2 




.BYT 


82+128 


5 82 ACTIVE LINES PER PA6E 



you want a different interface. If you 
have a disk or a modem, etc., there is 
even more switching and potential for 
mistakes. In the April 1982 issue of 
MICRO (47:06) there is an article by 
Joel Swank entitled "AIM User Device 
Arbiter" describing selection of multi- 
ple input and output devices. The UDA 
gives a DEVICE = prompt in reponse to 
answering the IN= or OUT= prompt 
with U. Joel's article explains how to 
access the two interfaces presented 
here, and any others you may have on 
your system, by putting a single letter 
code and a two-byte address for each 
device handler in an output device 
table. I call the Centronics interface C 
and the MX-Driver P. 

As presented in listing 1, the MX- 
Driver works on MX-80's and 
MX-100's with Graftrax-Plus. For 
anything else, you need to change the 
table of initialization parameters at the 
end of the program. This table contains 
two strings, labeled RESET and LPI8. 
Each string ends with a byte that has 
the most significant bit set. The other 
seven bits of this byte are used as the 
default lines of print per page by the 
MX-Driver. The other characters at 
RESET are sent to the printer to reset it 
to the desired defaults (for six lines per 
inch), and those at LPI8 are sent (if re- 
quested) to set up the eight lines-per- 
inch option. At RESET in listing 1 the 



printer is reset to power-on defaults, 
skip-over-perf is disabled (since the 
MX-Driver handles it), and form length 
is set to 11 inches. 

Listing 2 shows the alternate table 
for Graftrax-80. Graftrax-80 has a bug 
in the "reset printer" escape sequence 
(ESC,@) that causes the top of form to 
creep. If you don't know whether or not 
your MX-80 has this bug, turn it off and 
back on. If the paper moves, it's got the 
bug! At RESET in listing 2 the printer is 
reset by turning off the various modes 
it could be in — M.S.B., italics, empha- 
sized, double strike, and compressed 
character modes— and setting up the de- 
fault of six lines per inch, 66 lines per 
page. For those without an assembler, 
the only references to the initilization 
table are in the SETMX subroutine. The 
offsets into the table need to be adjusted 
when the table is changed. By changing 
this table, the MX-Driver can be used 
with many printers other than Epson. 

Larry R. Hollibaugh has been a computer 
hobbyist for the last five years, learning by 
building up the AIM 65 into a dedicated 
controller development system complete 
with video, disk, and printer. He is 
employed as a field service technician 
repairing coin-operated amusement 
devices. You may contact him at 1206 S.E. 
Harney St., Portland, OR 97202. 

JMCRO 



"■•■•eodPU seiusei:/ 



CARDBOARD 6 
$87.95 

An expansion interface for the VIC-20. 
Allows expansion to 40 K or accepts up 
to six games. May be daisy chained for 
more versatility. 

CARDBOARD 3 
$39.95 

Economy expansion interface for 
the VIC-20 

CARD"?" CARD/PRINT 
$79.95 

Universal Centronics Parallel Printer 
Interface for the VIC-20 or CBM-64. 
Use an Epson MX-80 or OKIDATA or 
TANDY or just about any other. 

CARDETTE 
$39.95 

Use any standard cassette player/re- 
corder with your VIC-20 or CBM-64 

LIGHT PEN 
$29.95 

A light pen with six good programs to 
use with your VIC-20 or CBM-64 



Prices subject to change. 
TO ORDER; PO. BOX 18765 

WICHITA, KS 67218 
(316)684-4660 
Personal Checks Accepted (Allow 3 Weeks) 
or C O D (Add $2) Handling Charges $2 00 
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C64 FORTH 

for the 
Commodore 64 



Fig.-Forth implementation 
including: 

• Full feature screen editor and 
assembler 

• Forth 79 Standard Commands 
with extensions 

• High resolution 320x200 pixel, 
16 color graphics 

• Sprite graphics for control of 
32 sprites 

• Three voice tone and music 
synthesizer 

• Detailed manual with ex- 
amples and BASIC-FORTH 
conversions 

• Trace feature for Debugging 

$99.95 - Disk Version 

(Specify CBM 1540 or CBM 1541 Disk) 

$99.95 — Cassette Version 

(CBM & Commodore 64 are 
Trademarks of Commodore) 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street 

Canton, MA 02021 

(617) 828-1209 
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Disk ID for Printed 
OSI Directories 



by Robert A. Paul 



Utilize the open area of OS65D3 
directory sector #1 to allow 
inclusion of diskette ID on 
printed directories. 



When you use large numbers of disks, 
it soon becomes obvious that you need 
hard copies of the directory for each 
disk on file. Furthermore, you need to 
correlate the printed sheets directly with 
the specific disk to which each refers. 

While examining several of the 
utilities for my OSI Superboard-MF, I 
noticed that OSI has taken utilities that 
were probably written for 8" disks and 
only slightly modified them for 
5 U "-disk systems. For instance, the 
directory-oriented utilities contained 
on my 5 14 " disks all include two calls 
to track 12, sectors 1 and 2. For 5 i4 " 
disks this is not necessary. 



Track Numbers 

0- 12 
13 
14 



Utility Name 

OS65D 

track r/w 

BEXEO 



Total number of tracks used: 15 out of a 
maximum of 40. Total number of en- 
tries used by OSI: 2 of 32 available. 

This leaves 25 additional entries re- 
quired in the directory even if all the 
rest of the programs on the disk are 
only one track long. Therefore, a total 
of 27 entries are needed. If the contents 
of the directory buffer are examined 
after a call to track 12, 1 has been made, 
you can see that there are spaces for 32 
8-character zones including two char- 
acters per name, which set the first and 
last track of the program. If you stay 
with the original 6-character program 
names, only one call to track 12,1 will 
give you more than enough spaces for 
all the programs that you can access by 
track name. Deleting the second call 
from the directory-oriented utilities 



will reduce the wear and tear on the 
disk, and will slightly speed up the 
printing process. However, the main 
insight here is that you now have a 
location where disk data such as ID 
name or number can be stored, and you 
have automatic access to it when doing 
a printed directory listing without 
making "calls" to other tracks or sec- 
tors. The following lines will need to 
be included in any program to access 
and print this information: 

DISK !"CA2E79=12,1" 
D$ = " " 

FOR J = 12143 TO 12152 
D$ = D$ + CHR$(PEEK(J) ) 
NEXT J 



PRINT #DV,"- DIRECTORY -";D$ 



FOR I = PN TO PN +240 STEP8 

If you are using a BEXEC* that sup- 
ports up to 14-character directory 
names, the same idea should work, but 
you will have to make that second call 
to track 12,2 after picking out the 



Sample Directory 


OS-65D Ver-3.0 


6-2-82 


- Directory 


- OS65D #17 


File Name 


Track Range 


OS65D3 


- 13 


BEXEC » 


14- 14 


CHANGE 


15- 15 


CREATE 


16- 16 


DELETE 


17-17 


DIR 


21 -21 


DIRSRT 


22-22 


FILIST 


23-23 


RENAME 


24-24 


TRACE 


25-25 


ALCO 


34-35 


LG15 


36-38 


SORT 


39-39 


18 entries free of 32 



stored ID word at the end of the buffer 
filled by the first call. 

The ID information must be put on 
the directory track as follows: 



OK 




EXIT 




01 TRACK 




A*CA2E79 = 


12,1 


A*EM 




EM V2.0 




:@2F6F 




2F6F 23 20 




2F70 23 4F 





2F71 23 53 


S 


2F72 23 36 


6 


2F73 23 35 


5 


2F74 23 44 


D 


2F75 23 20 




2F76 23 (LF) 


# 


2F77 23 31 


1 


2F78 23 37 


7 


2F79 23 (RET) 


:EX 




A.SA 12,1=2E79/1 



You may want to change the protec- 
tion of the track read/write code in 
track 13 by placing a 13 @ 2E80 before 
going on to the changes shown for 2F6F 
and on. The next time you run a direc- 
tory it will be included with OS65D3. 

To modify some of the utilities in- 
volving access of the directory track in- 
formation change line 10030 to show 
240 instead of 248 in the DELETE, 
ZERO, and RENAME utilities. Also, 
line 11040 in DIRSRT needs to reflect 
this same change, while line 10030 in 
CREATE should contain 246 instead of 
254. These changes will prevent any in- 
terference with the location of your 
new ID. Finally, you should eliminate 
line 10130 in DIR and DIRSRT, or 
modify the 64 in that line to a 32. 



You may contact the author at 4406 Bridle 
Rd., Bartlesville, OK 74003. 
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OSI Disk Users 



Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your usable floppy disk 
storage capacity — for a fraction of the cost of additional 
disk drives. Modular Systems' DiskDoubler™ is adouble- 
density adapter that doubles the storage capacity of 
each disk track. The DiskDoubler plugs directly into an 
OSI disk interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases total disk space under OS- 
65U to 550K; under OS-65D to 473K for 8-inch floppies, 
to 163K for mini-floppies. With the DiskDoubler, each 
drive does the work of two. You can have more and 
larger programs, related files, and disk utilities on 
the same disk — for easier operation without constant 
disk changes. 

Your OSI system is an investment in computing power. 
Get the full value from the disk hardware and software 
that you already own. Just write to us, and we'll send you 
the full story on the DiskDoubler, along with the rest 
of our growing family of products for OSI disk systems. 

™DiskDoubler is a trademark of Modular Systems. 

Post Off ice Box 16 C 
Oradell, NJ 07649.0016 
Telephone 201 262.0093 



Modular Systems 



CSE means OSI 

Software and Hardware 
Introducing 5 new disk programs 



From DMP Systems: 

Superdefender $14.95 

Universe $14.95 

Edit-all $19.95 

De-bug $12.95 

From Dwo Quong Fok Lok Sow: 
WP-6502 Word processor. Available in three 

versions. 

5" disk $200.00 

8" disk $234.95 

Cassette $39.95 

Training Manual $20.00 

CSE's Rom Source Code Listing 100 Pages! . .$15.95 

NEW! NEW! NEW! 

ANCHOR SIGNALMAN MODEMS $89.50 

Please write for more info on new disk programs or 
send $2.00 for catalog. Please include $2.00 shipping 
($3.00 for modems). 

Box 50 • 291 Huntington Ave. Boston 02115 
617-423-9501 



UPGRADE YOUR AIM-65* INSTANTLY 



"A trademark of Rockwell Inc. 



To A 6809 Development System 

With The 

"MACH-9" 

From 

MMS Inc. 




INTRODUCTORY PRICE 

$239. 

Plus $6 U.P.S. 
And Handling 

Includes: 

*6809 CPU Plug-in Assembly 
'Super-set of AIM Monitor 
'Two-Pass Symbolic Assembler 
'Complete Monitor Source Listings 
'Enhanced Cut & Paste Editor 
'200 Page Manual 
'Full I/O Control 



"MACH-9" is assembled and tested with 
local BUS, 5 locking low force ROM sockets 
and 2K Static RAM 

MMS Inc. 

1110 E. Pennsylvania St. 

Tucson AZ 85714 

(602) 746-0418 




VISA 
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Attention 
OSI Users! 



xSWr. 



FOR 



ff. 



^;fe 



U 



A Brand New 
Book..;The 
Last Word in 
OSI Information! 

Improvements for your Ohio Scientific 
Computer including Machine Language 
enhancements and BASIC Aids. TRACE 
BASIC programs, DEBUG machine 
language programs and improve your 
OS65-D operating system. Hardware 
modifications for enhanced/reversed video, 
programs for control code and upper/lower 
case entry, and a What's Where in the OSI 
C1/C2 are just some of the useful informa- 
tion presented. Improve your own BASIC 



P& 



Lou, *s h 



o 



programs with PRINT AT, 
DELETE, AUTO-NUMBER and 
FUNCTION INPUT. No OSI owner 
can afford to be without this book. 



25 Programs — 176 Pages — Only $19.95 

USE COUPON TO ORDER TODAY DIRECTLY FROM MICRO 



Mail To: 

Yes! Send me 
Name 



MICRO, 34 Chelmsford St., P.O. Box 6502, Chelmsford, MA 01824 



MICRO on the OSI @ $19.95 (plus$2s/h) 



Address. 
City 



. State . 



Zip 



Card# 



Expires. 



□ Check Enclosed 

□ VISA 

D MasterCard 



Or Call Toll Free: 

1-800-345-8112 

(In PA 1-800-662-2444) 



MA residents add 5% sales tax. Allow 6-8 weeks for delivery. 
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APPLE 
PRINT-USING Routine 



by Celestino R. Monclova 



A machine-language routine to 
simulate PRINT-USING from 
Applesoft BASIC. 



PRINT-USING 

requires: 

Apple II with Applesoft 

When called from BASIC, this 
machine-language routine has the cap- 
ability of merging two string variables 
(a mask string and a data string] with 
the following options: 

1 . Fixed decimal points and commas 

2. Fixed dollar sign and text 

3. Asterisk or dollar sign fill 

4. Floating dollar sign 

Options 1, 2, and 3 are controlled by 
the way you set up your mask string 
and may be used in any combination 
with option 4, which is handled by 
appending your ' 'float' ' character to the 
data string — all in BASIC. 

On the mainframe computer, the 
floating dollar sign and asterisk are 
handled by setting hardware flags. By 
eliminating the need for flags in this 
machine-language code, I feel I have 
improved upon the mainframe version 
by allowing any and all ASCII charac- 
ters to float and/or fill. 

Included with the assembly listing 
is a short program that displays a set 
array of number-strings and the result 
when they are combined with various 
user masks, which are keyed into this 
routine. The first mask, "TOTAL 
AMOUNT IS $ , , .00", dem- 
onstrates the prime use of this routine 
and options 1 and 2 above. The data 
strings show that the unused commas 
will be suppressed. The mask is not 
limited to numeric characters only. 



The second mask, "TOTAL TO 
DATE $$,$$$,$$$.0000", demon- 
strates dollar sign or any character fill. 
The fill characters still suppress the un- 
needed commas, and the zeros after the 
decimal point are not limited to two. In 
fact, you don't even need a decimal 
point, as shown in the third and fourth 
masks, "TOTALS " and 

"TOTALS $$$$$$$$$$$$". Nor do you 
need zeros after a decimal point (mask 
five, " "). 

The last mask, "TOTALS ,..., 

....00", shows flexibility by using 
decimal point fill. 

The BASIC interface to this routine 
is the technique that assigns X$ = " " 
at the beginning of your BASIC pro- 
gram. Later, when you are ready to edit 
your data, you must first assign your 
mask X$ = "totals , , .00". The 
mask must be reassigned each time you 
edit. This is because the mask is modi- 
fied and not your data string. 

Next your data string is defined as 
any string variable available to BASIC. 
If you have a numeric variable, then 
use the instruction "Y$ = STR$ (XJ" 
where X is the variable you wish to 
edit. No check is made on the numeric 
quality of this data string, so an in- 
struction like "Y$ ="$" + STR$(X)" 
will give you the floating dollar sign. 

After X$ has been assigned as the 
first variable at the beginning of your 
BASIC program and the machine- 
language routine has been loaded, the 
actual usage could be: 

100 X$ = "***,***.00" : CALL 27904Y$ 
: PRINT X$ 

The lack of space, comma, or colon 
between the CALL and your data name 
is important. 

This routine, which converts 
numeric strings into English, makes 



use of the presently unused input buffer 
page. If you want to defer printing after 
the CALL instruction to do INPUT, or 
save the newly edited string for reuse, 
then you must save it from its volatile 
position in the input buffer by assign- 
ing it to another variable: Y$ = 
MID$(X$,1). Listing 3 is a short pro- 
gram demonstration. The BASIC listing 
depends upon the PRINT-USING rou- 
tine to align the numbers into columns 
as previously demonstrated, and can be 
considered an extended application for 
the machine-language routine. 

Lines 600 and 625 set up X$ and 
read in the English words from the 
data strings at lines 1000 and 1002. 
Line 745 sets up the conversion mask 
that is interpreted by X and Y in the fol- 
lowing manner: 



X$ = 
X = 
Y = 



000000 
1 
12012 



00 



Thus, the X,Y FOR NEXT loops inter- 
pret the data string from the A$ and B$ 
arrays. By extending the mask and 
including a C$ string, conversion can 
be easily expanded to many times the 
national debt. 

The machine-language routine 
starting at location $6D00 is totally 
relocatable to any other unused page in 
memory. Lines 2 through 12 locate the 
mask X$, move its length to $1A, and 
start adding to locations $8 and $9. 
Line 5 also stores the length in location 
$1C, if there is no decimal point found. 

Moving X$ to page $200 resolves 
several problems. The first problem is 
how to keep track of all the necessary 
pointers. Locating the beginning of the 
mask at $200 eliminates that pointer. 
The second problem, as some of the ex- 
amples demonstrate, is how to keep the 
data string, when it overlaps the mask 
(continued on pg. 41) 
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Circle No. 29 



ANIMATION 

GRAPHICS 

ILLUSTRATOR'S 

LIBRARY 




Introducing A.G.I.L 

Graphics software developed for the professional 

is now available for your Apple Computer. A.G.I.L 

for your Apple allows you to create and animate 

Hi-Res images with sound and color using a 

joystick or a tablet with total Applesoft compatibility. 

MENU DRIVEN, ERROR-PROOF AND FLEXIBLE. 

PAINT PROGRAM— Draw on 2 Hi-Res pages with 

over 1 00 colors and textured brushes. Add text 

with the built-in graphics word processor system. 

Save, load and copy to disk. Support graphics 

printers, video digitizers, joystick and graphics tablets. 

ANIMATION EDITOR— Create a Hi-Res animated 

sequence with color and sound. Use the unique 

ANIMATED SLIDE SHOW module to automatically 

replay multiple sequences in any order. 

SHAPE/FONT MAKER EDITOR— Create multi-colored 

shapes easily. Disassemble and edit ANY shapetable. 

Use with A.G.I.L PAINT to "cut" shapes out of 

either Hi- Res screen. 

Special Introductory Prices: 

PAINT PROGRAM $139 

ANIMATION EDITOR $89 

SHAPE/FONT MAKER EDITOR $59 

(703)471-0740 



Applesoft and Apple 

are trademarks of 

Apple Computer, Inc. 



Sittertcdon SuwantMd 

VISA a Matter Card Welcome 

Outers Inquiries Invftsd 




L 



IICS ILLUSTRATOR'S LIBRARY 

A.G.I.L is a product of 

Animation Graphics, Inc. 

1 1 31 7 Sunset Hills Road, Reston, Virginia 22090 
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MICRO 



6D00 


1 




ORG $6D00 




6DM 


2 




OBJ $800 




6D00 A602 


3 




LDY #2 




6D02 841B 


4 




STY JIB 




6DU B169 


5 




LDA ($69), Y 


•FIND X$ 


6D06 851C 


6 




STA $1C 


•SAVE LENGTH 


6M8 851A 


7 




STA $1A 




6D0A C8 


8 




INY 




6MB B169 


9 




LDA ($69), Y 




6D0D 8908 


id 




STA $8 


•AND ADDRESS (H) 


6D0F C8 


11 




INY 




6D10 B169 


12 




LDA ($69), Y 




6D12 85ft 


13 




STA $9 


•AND ADDRESS (L) 


6D14 A000 


14 




ldy m 




6D16 


15 


♦FIND X$ "."WHILE MOVING TO $200 


6D16 Bl«8 


16 


PERIOD 


LDA ($8),Y 




6D18 C92E 


17 




CMP #$2E 




6D1A D002 


18 




BNE MOVE 




6D1C 841C 


19 




STY $1C 




6D1E 990002 


20 


MOVE 


STA $200, Y 




6D21 C8 


21 




INY 




6D22 C41A 


22 




CPY $1A 




6D24 90F0 


23 




BCC PERIOD 




6D26 


24 


•MOVED WITH PERIOD AND POINTER AT $1A 


6D26 


25 


•GET DATA AND FIND " 


'■ 


6D26 20E3DF 


26 




JSR $DFE3 


•FIND DATA ADDRESS 


6D29 A000 


27 




ldy m 




6D2B B183 


28 




LDA ($83), Y 




6D2D 8987 


29 




STA $87 




6D2F C8 


30 




INY 




6D30 B183 


31 




LDA ($83), Y 




6D32 8989 


32 




STA $85 




6D34 C8 


33 




INY 




6D35 B183 


34 




LDA ($83), Y 




6D37 8986 


35 




STA $86 




6D39 A000 


36 




LDY #0 




6D3B B189 


37 


ALIGN 


LDA ($85), Y 




6D3D C92E 


38 




CMP #$2E 


*'•." 


6D3F F007 


39 




BEQ FOUND 




6D4l C8 


40 




INY 




6D42 C487 


41 




CPY $87 




6D44 30F9 


42 




BMI ALIGN 




6D46 A487 


43 




LDY $87 




6D48 8419 


44 


FOUND 


STY $19 




6D4A A91C 


45 




IDA $1C 




6D4C 38 


46 




SEC 




6D4D E519 


47 




SBC $19 




6D4F 891A 


48 




STA $1A 




6D91 


49 


•OFFSET FROM 200 FOR USER DATA 


6D91 A487 


50 




LDY $87 




6D93 88 


51 


COMMA 


DEY 




6D94 B11A 


52 




LDA ($1A),Y 




6D96 C92C 


53 




CMP #$2C 


*'•/' 


6D98 DM2 


94 




BNE MOVZE 




6D9A C61A 


99 




DEC $1A 




6D9C B189 


56 


MOVZE 


LDA ($85), Y 




6D9E 911A 


57 




STA ($1A),Y 




6D60 98 


58 




TYA 




6D61 D0F0 


59 




BNE COMMA 




6D63 


60 


•CLEAR REMAINING COMMAS 


6D63 A41A 


61 




LDY $1A 




6D65 A900 


62 




lda m 




6D67 891A 


63 




STA $1A 




6069 B11A 


64 


SKIP 


LDA ($1A),Y 




6D6B C92C 


65 




CMP #$2C 


*"," 


6D6D F006 


66 




BEQ CLEAR 




6D6F C940 


67 




CMP #$40 




6D71 1MB 


68 




BPL END 




6D73 3*6 


69 




BMI END01 




6D79 88 


70 


CLEAR 


DEY 




6D76 B11A 


71 




LDA ($1A),Y 




6D78 C8 


72 




INY 




6D79 911A 


73 




STA ($1A),Y 




6D7B 88 


74 


END01 


DEY 




6D7C D0EB 


75 




BNE SKIP 




6D7E A003 


76 


END 


LDY 13 




6D80 A900 


77 




LDA M 




6D82 9169 


78 




STA ($69), Y 




6D84 C8 


79 




INY 




6D89 A902 


80 




LDA #2 




6D87 9169 


81 




STA ($69), Y 




6D89 60 


82 




RTS 
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(continued from pg. 39) 
on one end or the other, from destroy- 
ing adjacent strings in variable memory 
jmore pointers?). The third problem in- 
volves scanning the mask string to find 
the decimal point. Moving and iso- 
lating it does not cost much processing 
time, and the space is available anyway. 
Starting at line 16, the subroutine 
called PERIOD moves X$ to $200 and, 
at the same time, records the last 
period at location $1C. Lines 27 





Listing 2 


10 XJ = '"': REM FIRST VARIABLE 


50 


PRINT CHR$ (4)"BL0AD PRINT U 




SING" 


Hi 


FOR X = 1 TO 10: READ ]f$(X): 




NEXT 


150 


INPUT t%: REM GET DEMO MASK 


200 


FOR X = 1 TO 10:X$ = 1%: CALL 




27904Y$(X) 


250 


PRINT X$" "Y$(X): NEXT 


300 


GOTO 150 


350 


DATA 12345678,123456.8,1234 




5.78,1234.678,123.5678,12.45 




678, .01234567 


400 


DATA .00012345, $12345. 78, $12 




3 . 5678 




Listing 3 


600 X$ = "": DIM A$(20) 


610 


PRINT CHR$ (4)"BL0AD PRINT 




USING" 


625 


FOR X = TO 19: READ A$(X): 




NEXT : FOR X = TO 9: READ 




B$(X): NEXT 


700 


INPUT Z$ 


730 X$ = "?,$«,J?0.00": CALL 279 




04Z$: PRINT X$: PRINT 


745 X$ = "000000.00": CALL 27904Z 




$: IF VAL (Z$) < 1 THEN PRINT 




A$(0)" ";: GOTO 790 


750 


FOR X = TO 1:S = 0:Z =■ 0: FOR 




Y=0TO2:IFZ>9 THEN 780 


755 


Z = VAL ( MIDI (XI, X » 3 + Y 




+ 1,1)):S = S + Z: IF Z = 




THEN 780 


760 


IF Y < > 1 THEN 775 


765 


IF Z < > 1 THEN PRINT B|(Z 




)" ";: GOTO 780 


770 Z = 10 + VAL ( MIDI (X$,X » 




3 + 3,D) 


775 


PRINT AI(Z)" "; IF Y = THEN 




PRINT B$(0)" "; 


780 


NEXT :IFS>0ANDX=0 THEN 




PRINT B$(l)" "; 


785 


NEXT 


790 


PRINT "AND " RIGHT! (X$,2)"/ 




100" 


795 


PRINT : GOTO 700 


1000 


DATA ZERO, ONE, TWO, THREE, FOU 




R, FIVE, SIX, SEVEN, EIGHT, NINE, 




TEN , ELEVEN , TWELVE , THI RTEEN , F 




OURTEEN, FIFTEEN, SIXTEEN, SEVE 




NTEEN , EIGHTEEN, NINETEEN, HUND 




RED, THOUSAND,TWENTY, THIRTY, F 




OURTY, FIFTY, SIXTY, SEVENTY, EI 




GHTY, NINETY 



through 36 locate the data string and 
save its length at $87 and its address 
at $85,$86. 

Subroutine ALIGN at line 38 
searches forward on the data string for 
its decimal point. Finding none at line 
44, it defaults to the right end. 

Now that you have located the data 
decimal point at FOUND, compute in- 
to $1A the left starting position of the 
data string over the mask string. How- 
ever, if you start moving the data string 
at the $1B left end, you will miss out 
on a lot of other goodies. Location 
$1A-$1B (set up at line 3) is the pointer 
to the left-end position of where the 
data string should start. Loading the Y 
register with the length at $87 gives 
you the first data character at the right 
end. There is plenty of room in mem- 
ory if this position should overlap the 
mask string. 

Subroutine COMMA starts the 
move by first checking the receiving 
position of the mask for a comma. 
Finding none, it jumps to MOVZE and 
moves the rightmost data bytes to the 
mask. If it finds a comma in the mask 
area before finishing the data string, 
this loop decrements the memory 
pointer at $1 A to skip it and stores the 
data with MOVZE anyway at the next 
mask location. 

Clean-up involves checking the re- 
maining length of the mask for com- 
mas — namely, from whatever length 
is left in $1A to zero. If it is a comma, 
then CLEAR uses as the fill character 
whatever character is in the mask that 
preceeded the comma. 

Line 67 checks for any characters in 
the mask. This ensures that commas in 
the mask are not cleared (i.e., a mask of 
X$ = "TOTALS, , .00"). This 

keeps the comma after the word 
"TOTALS" from being edited out. 

Finally, END forces the start ad- 
dress of the new X$ to $200. The length 
remains the same and you return to the 
BASIC program. 



Mr. Monclova is a systems programmer 
for a large, diversified computer user in 
Manhattan. You may contact Mr. 
Monclova at 229-03 129 Ave., Laurelton, 
NY 11413. 



A harvest of 
savings from 




Appkrj^Ttee 
Electronics 



SOFTWARE 



APPLE. ATARI. TRS80- IBM 

A full line of software for business, games 
and education lip to 35% off! 



MUSE 


KJS 


VSCORP 


STONEWRE 


ONLttE - 


SiTEROSTK 


EDOWiRE 


HAYDEN 


HOWARD 


ANDMANYMORE 



HARDWARE 



AMDEK. HAYES. MICROSOFT 

FRANKLIN COMPUTER 

SYSTEM 
ACE lOOO '$1795.00 



DISKS 



Maxell Box of 10, 5'4", SSDD $35.00 
Verbatim Box of 10,5!i",S&DD $29.00 



MONITORS 



LE MONITORS List 


Our Price 


9" Green $189.00 


$159.00 


12" Green 5199.00 


$169.00 


ZENITH 




12" Green $179.00 


$129.00 


Plus a full Hne of AMDEK Monitors 


PRINTERS 


PAPER TIGER List 


Our Price 


460G $1,094.00 


$950.00 


560G $1394.00 


$1,250.00 


EPSON 




MX 70 $449.00 


$395.00 


MX 80FT $745.00 


$595.00 


MX lOOFT $945.00 


$795.00 



CALL FORTIUS MONTHS SPECIAL! 

18008352246 EXT. 211 



7024594114 



JUCftO 



■^■J 5L30EastCharlestonBK/d. i - . - ; 
Ogjy Sum aMi **H! 

Phone orders welcome. Mail orders may send 
charge card number (include expiration date), 
cashiers check, money order or personal check 
(allow ten business days for personal or com- 
pany checks to clear). Add $3.00 for shipping. 
Handling and insurance. Nevada residents add 
5.75% sates tax. Please include phone number. 
All equipment is in factory cartons with manu- 
facturers warranty. Equipment subject to price 
change and availability. Call or write for price list 
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A Full Byte 
for Your APPLE Printer 



by Mark J. Boyd 



Many modern printers use an 
8-bit code, but most Apple 
printer interface cards can send 
only 7-bit ASCII code. This 
article shows an easy way to 
add program control of the 
eighth bit to allow full use of 
your printer. 



Full Byte 

requires: 

Apple II, a printer, 

and a one-wire modification 



This article is for the many Apple users 
who have a printer connected to their 
computer by an interface that sends 
only 7-bit ASCII codes. Specifically, I 
discuss the Epson MX-80 and the Epson 
Apple interface, but other interfaces 
can be modified in a similar manner, 
and other printers can make use of the 
full 8-bit code. For the MX-80, use of 
bit 8 means block graphics and full con- 
trol of line spacing. 

To gain control of bit 8, which is 
normally held low by the interface 
card, you must find a TTL output that 
can be controlled from your programs. 
The Apple II has four such outputs, 
called annunciator outputs, located at 
the game I/O connector. Two of these 
outputs, ANO and AN1, are set low on 
power-up or reset. This is just what you 
need, since bit 8 should be low for nor- 
mal use of the printer. 

You must connect the annunciator 
output to bit 8 on the printer interface. 
On the Epson interface card this bit is 
normally held low by a jumper to 
ground. All you need to do is discon- 
nect it from ground and connect it with 
a piece of wire to the annunicator out- 



put. The wire can be easily routed from 
the interface card to the game I/O 
socket without interferring with other 
peripheral cards. 

The annunciator outputs are eon- 
trolled by accessing certain locations in 
memory. There is no actual memory at 
those locations, but trying to read or 
write it sets what Apple calls "soft 
switches" (TTL flip-flops). For AN1, 
which I used, the locations are - 16293 
(to set it high) and - 16294 (to set it 
low). When sending a control sequence 
to set the printer for a spacing of N, 
1/72-inch increments per line, use the 
following code: 

? CHR$ (27) "A";: POKE - 16293,0: 
? CHR$ (N);: POKE - 16294,0:? CHR$ 
(27) "2" 

The first POKE sets bit 8 high. This 
causes the interface to actually send 
CHR$ (N+128), as required by the 
printer. The second POKE sets bit 8 
low again so the second ESC sequence 
is sent properly. 

The best way to make the connec- 
tion is by soldering a 16-pin DIP header 
to a 16-pin DIP socket. The wire to the 
interface then can be soldered to the 
AN1 connection (pin 14) between the 



socket and the header. Pin 14 is the 
third pin up on the left-hand side of the 
socket when viewed from the front of 
the Apple. This method leaves the 
game I/O connector free for other use. 
A simpler way, and the one I used, is to 
solder a small-diameter insulated solid 
wire to the interface connection (the 
non-grounded side of the jumper on the 
Epson; the left-hand side when viewed 
component side up). The other end of 
this wire can be plugged directly into 
the game I/O socket. You can avoid 
soldering by using a jumper wire with 
insulated miniature alligator clips. Clip 
one end to the non-grounded side of the 
jumper after you cut it, and clip the 
other end to a short piece of bare wire (a 
V* w resistor lead will work) inserted 
into the game I/O socket. Be very sure 
the alligator clips cannot come into 
contact with any other circuits. If you 
use either of these latter two methods, 
you will have to remove or bend out the 
corresponding pin on any game I/O 
plugs you use. 

After deciding on the method to use 
and attaching the wire to the interface 
card, you should check this connection 
before making the connection to the 
game I/O socket. Replace the interface 
card in your Apple and connect the 



Listing 1: Modifications to Taylor's Routine 




*942B: 


20 A4 94 ; JSR to 


new setup location 


*955D: 


20 9D 94 ; JSR to offset routine 


*958E; 


20 9D 94 ; JSR to offset routine 


*949D: 


18 69 20 ; 




*94A0: 


20 02 C1 60 A2 C1 A9 09 


; New routine, adds 32 to 


*94A8: 


9D B8 06 A9 FF 9D B8 04 


; Graphic character value 


*94B0: 


9D 38 06 A9 00 9D B8 05 


; Turn on interface, etc. 


*94B8: 


20 EA 03 A9 OF 20 02 C1 


; (as in Taylor's routine) 


*94C0: 


8D 5B CO 60 


; I NIT printer for compressed 
Print and set bit 8 high 



42 



MICRO 



No. 58 • March 1983 



PRINTERS 



printer. When you power up your sys- 
tem, leave the other end of the new 
wire unconnected. Turn on the printer, 
enable the interface, and try printing 
some text. It should print as graphics 
characters. Now ground the wire by 
holding the stripped end against the 
power supply. Text should print nor- 
mally. If this connection is made prop- 
erly, you cannot harm the Apple by 
plugging it into any of the game I/O 
sockets. If it is not connected properly 
(say you connected to the ground side 
instead of the bit-8 side of the cut 
jumper) you might damage the chip 
that drives the annunciator outputs. 

Once you are convinced that every- 
thing is OK at the interface end, 
turn off the Apple and make the con- 
nection to AN1. Now turn on your 
system and print some text. Everything 
should work normally. If not, shut it 
down and check your connections be- 
fore proceeding. 

Next POKE - 16293,0 to switch bit 
8 high. Print a line of text to verify that 
the printer is printing graphics charac- 
ters. Finally, POKE - 16294,0 to set bit 
8 low again. Everything should be back 
.to normal and you now have a full 8-bit 
interface for your printer! 

Now use the interface to print the 
HGR screen on the MX-80 (other 
systems with TRS-80-compatible 
graphics also will work, but probably 
you will have to change the offset value 
for graphics character set and the 
printer initialization). Charles Taylor's 
article, "Apple Graphics for Okidata 
Microline 80," (MICRO 48:48) in- 
spired me to get control of bit 8 on my 
interface. His assembly-language pro- 
gram needs only minor modification 
for use with program control of bit 8 (he 
used a switch) and the MX-80. 

Enter Mr. Taylor's assembly-lan- 
guage program in hexadecimal, using 
the Apple monitor memory-load func- 
tion (page 44 in the Apple II Reference 
Manual.) You can check your entries 
most easily with the L command. Since 
the entries must be correct and entry is 
tedious, check things as you go along. 
It's terrible to finish entering a few 
hundred hexadecimal pairs of numbers 
only to discover you entered an extra 
byte early on. 

After you have entered and carefully 
checked Mr. Taylor's program, make 
the entries shown in listing 1 : relocate 
the start of the printer setup routine to 
make room for the offset routine; re- 
place the setup routine with the offset 



routine, followed by the new setup rou- 
tine; and redirect the graphics output 
characters through the offset routine. I 
couldn't find enough room to add a 
printer/ computer reset routine without 
reassembling Mr. Taylor's program, so 
you'll have to reset both the computer 
and the printer after running it. 

After checking your entries again 
(you can't be too thorough when check- 
ing machine-language entries), BSAVE 
the routine (A$ 9400, L$ 196). The pro- 
gram can print either screen (see 
Taylor's article), so get a screen or two 
into memory and check it out. Turn 
your printer off and set the paper to top 
of form before running. The program 
turns on the interface (in slot 1], so all 
you need to do is set the paper correctly, 
turn on the printer, and run it. A screen 
fills a normal-sized page and takes 
about five minutes to print. 

Before you entered Taylor's pro- 
gram, you were told to set HIMEM to 
37760. In the future, before you 
BLOAD it you must always set 
HIMEM. If you plan to call this routine 
from a BASIC program you should set 
HIMEM and BLOAD it first, then load 
the calling program. The calling pro- 
gram should reset the printer (turn off 
compressed print, reduce the line 
width back to normal) and set bit 8 low 
after calling the routine. 

For stand-alone use, I am including 
a couple of BASIC programs that allow 
you to "EXEC SP" and follow the in- 
structions given on the screen. The 



Listing 2: EXEC File Maker 



10 D$ = CHR$(4) 

20 PRINT D$"OPEN SP" 

30 PRINT D$"WRITE SP" 

40 PRINT "HIMEM: 37760" 

50 PRINT "BLOAD SPRINT" 

60 PRINT "RUN SCREEN PRINT 

70 PRINT D$"CLOSE SP" 

80 END 



first program, SP CREATE, should be 
loaded and run to create an EXEC File, 
SP. SP sets HIMEM, BLOADs SPRINT 
(my name for the screen printing 
routine), and RUNs SCREEN PRINT. 
SCREEN PRINT 'takes care of screen 
selection, displays the chosen screen, 
allows you to print a title above the 
screen, and resets the printer and com- 
puter when it is finished. 



Mark Boyd teaches at a small four-year 
liberal arts college. His interest in 
computers began when he was an 
undergraduate taking a FORTRAN 
programming course. You may contact Dr. 
Boyd at St. Mary of the Plains College, 
Dodge City, KS 67801. 



JMCDO 



Listing 3: Screen Print Listing 



4 REM SETUP CTRL-D, CTRL-I , AND TURN OFF INTERFACE BOARDS 

3 D» - CHR» <4>iP» - CHR» <9>i PRINT D»"PR#0" 

10 TEXT 

20 HOME l REM CLEAR SCREEN 

30 PRINT TAB( 4) | "SCREEN PRINT PROGRAM - PLEASE TURN" 

31 PRINT TAB( 12) | "OFF THE PRINTER" 

40 PRINT "LINE UP THE TOP OF THE FORM (PERFORATIONS) WITH THE PRINT HEAD. 
NOW TURN THE PRINTER ON AND MAKE SURE THE READY LIGHT IS ON. 
FOR I • 1 TO SOOOi NEXT I REM WAIT FOR USER TO READ PROMPT 
PEEK ( - 16297)| PEEK ( - 16302)1 REM SETUP FOR HSR 



43 
43 
49 
30 
32 
S3 
54 
35 

56 

57 

60 

70 

80 

90 

100 

110 

120 
130 
140 
150 
160 
170 

ISO 



PRINT 

HOME 

INPUT "WHICH SCREEN DO YOU WANT? (1/2) "|A» 

' "2" THEN 54 

PEEk ( - 16300)1 GOTO 55 I REM 

PEEK ( - 16299) I REM 



IF A* 
PRINT 
PRINT 
PRINT 



SELECT SCREEN 1 
SELECT SCREEN 2 
PEEK ( - 16304)1 FOR I » 1 TO 20001 NEXT I TEXT I REM DISPLAY 
SCREEN 
HOME l INPUT "IS THIS THE SCREEN YOU WANT? (Y/N)"|E» 
IF E» < > "Y" THEN 49 

INPUT "DO YOU WANT A TITLE PRINTED? (Y/N)"lB» 
IF B* < > "Y" THEN 90 
INPUT "PLEASE ENTER THE TITLE. "|C» 
HOME 
IF B* < > "V" THEN 130 
PRINT D»"PR»l"i PRINT P»"B0N"i REM TURN ON THE PRINTER INTERFACE AND 

SET FOR SO COL 
PRINT TAB( (SO - LEN <C»> ) / 2)|C»i REM PRINT CENTERED TITLE 
IF A* < > "1" THEN 150 
CALL 37SB81 REM PRINT SCREEN 1 
IF A» < > "2" THEN 170 
CALL 379041 REM PRINT SCREEN 2 
POKE - 16294,01 PRINT CHR» (127)1 PRINT P»"I"l PRINT D»"PRttO"l REM 

RESTORE NORMAL SETTINGS 
END 
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LEARNING CENTER 



Features: 



BANNER: A Display Program for the 
Color Computer 

by Bryan Christiansen 
This "ticket-tape" program, written by a 15-year- 
old high school freshman, displays any message 
of your choice on a scrolling screen. 



DIGI-DRAFT 

by Tim Kilby 
"DIGI-DRAFT" is a graphics program that allows 
images to be drawn on the screen with 
convenient commands 



• The Computer Revolution Reaches Out 
to the Community 

by Emmalyn H. Bentley 
A look at the new Microcomputing Learning 
Center in Nashua, N.H. — who is enrolling, what 
courses are offered, and how the Center is 
contributing to the community as a whole. 




MICRO Calc for the VIC-20 

by Loren Wright 
A computer worksheet program that allows you 
to define a series of calculations and preform 
them at the touch of a key. 
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PUT THE FULL POWER OF YOUR 
VIC-20 AT YOUR COMMAND! 

Order your copy of MICRO'S newest book... 

MASTERING YOUR VIC-20 

^ with eight BASIC projects 



You'll 
Receive: 



MICRO CdlC.a miniature spread- 
sheet program that makes complex, repetitive 
calculations a breeze. 




MASTER. ..a guessing game that teaches 
programming with random numbers and Hags. 



'VIC CIOCk...to teach you ON..GOSUB function 
and character graphics. 



BREAK-UP.. .a popular game that also teaches how 
animation is achieved with PEEKS and POKES to screen memory. 



Use this coupon or the postage paid card in this issue to order. 




• PIUS... music programming, 
string manipulation, sorting 
demonstrations, and more. 

Each Urogram 
Wc the 
of the 



~ MASTERING^! 

k YOUR yic-pp 



MICRO Calc for 
Commodore and 
APPLE 



by Loren Wright 



Minor changes provided for Commodore-64 
and all PET models. Equivalent program for 
Apple computers is presented on page 53. 



What is MICRO Calc? 

The "electronic spread-sheet" is one of the most 
popular types of business programs available. The 
first program of this kind, "VisiCalc" (now sold 
by VisiCorp), has been credited with Apple's big 
impact on the business market. A spread-sheet 
program lets you perform mathematical 
computations on the video display. You enter 
formulas and data directly into the display via the 
keyboard. Commercial spread-sheet packages offer 
a large array of cells into which you can program 
labels or values. The values can be defined in very 
complex ways, including values calculated in 
other cells. The applications range from 
accounting to inventory to printing bar graphs. 
Once your sheet is defined for a particular 
application, you can save it and use it again and 
again for that application. 

MICRO Calc is a miniaturized version of one 
of these spread-sheet programs. Instead of cells, 
you have ten lines on the screen with which to 
work. MICRO Calc is a short program that allows 
you to perform even very elaborate calculations at 
the touch of a key. In addition, MICRO Calc can 
be used to learn how BASIC functions work. The 
format is similar to how BASIC programs 
themselves are written. 

As presented, MICRO Calc runs in an 
unexpanded VIC. The minor changes described 
allow the program to take advantage of more 
memory in the VIC, to use a disk drive, or to run 
on the PET or Commodore 64. For the Apple, use 
the equivalent program by Phil Daley on page 

Entering the Program 

Type the program in exactly as it is shown in 
listing 1. Do not include any spaces unless they 
appear within quotes. If your machine is not a 
VIC, be sure to make the changes described for 



your machine at the end of this article. When you 
have finished typing, check carefully against the 
listing, correct any errors, and SAVE the program 
to a cassette (if you don't have a cassette you'll 
have to retype this program for every session you 
want to use it!). Rewind the cassette, VERIFY it, 
make sure ST = 0, and you are ready to try it out. 

Using MICRO Calc 

If you don't already have MICRO Calc in 
memory, LOAD it from the tape. Type RUN and 
press RETURN. After a brief delay, the screen will 
fill with ten yellow lines and a yellow diamond 
will appear in the upper left-hand corner. The 
diamond, called the "cursor," indicates where 
characters you type will appear on the screen. 

A Simple Example 

For this first example we want to add two 
numbers and print the result. Our two numbers 
are labeled A and B and the sum defined as C. 
Type the left-hand portion of each of the following 
lines, pressing RETURN after each. The rest of the 
line is printed here only to help you understand 
what is going on. 



A = 5 


;assign 5 to A 


B = 7 


;assign 7 to B 


C = A + B 


;assign sum to C 


C? 


;request value of C 



Now press '@ '. The cursor disappears for a second, 
the answer '12' (the sum of 5 + 7) is printed after 
the 'C?' and the cursor reappears after the '5' on 
the first line. To change the value of A to equal 2, 
press the INST/DEL key, type '2', and then '@'. 
The new answer (9) appears after the 'C?'. The 
formula may be changed. For example, to make it 
'C = A-B', use the CRSR down key (unshifted) to 
move the cursor to the end of the third line. 
Remove the ' +B' by pressing INST/DEL twice, 
then type the new portion of the formula ' -B'. 
When you press '@', the new answer, ' -5', 
appears on the fourth line. 

Now let's try a more practical example — 
calculating bowling averages. Use shifted 
CLR/HOME to clear the screen, and type the 
following, pressing RETURN after each line. 



A=165 

B = 148 

C = 173 

S=A+B+C 

S? 

V = S / 3 

V? 



;first score in A 
;second score in B 
;third score in C 
;sum of three scores 
;display sum 
;calculate average score 
;display average score 
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Press '@ ' and, after a brief delay, the sum of the 
three scores, '486', will appear after the S? on the 
fifth line and the average of the scores, '162', after 
the V? on the seventh. Of course this procedure is 
not restricted to bowling scores. Any three 
numbers you want to average could be used. 

To show how similar "programming" MICRO 
Calc is to writing BASIC, here is a BASIC program 
that does the same thing as the averages sheet 
above. 

10 INPUT-FIRST SCORE";A 
20 INPUTSECOND SCORE";B 
30 INPUT'THIRD SCORE";C 
40 S = A + B + C 
50 PRINTS 
60 V = S / 3 
70 PRINT V 
80 GOTO 10 

The Rules 

MICRO Calc, as you can see, is easy to use. 
However, it has some rules that must be followed 
to avoid disastrous results. 

1 . Each line must begin with a letter, followed 
either by a '?' or a ' = '. 

2. Nothing should be typed after a '?'. That is 
where the program fills in its result. 

3. After a ' = ', you must type either a number or a 
BASIC expression that evaluates to a number. Any 
BASIC function that yields a numerical result, 
such as TAN, SQR, RND, LOG, or ABS, may be 
used. BASIC string functions, such as LEFTS, 
MID$, ASC, or VAL, and integer variables may not 
be used. 

Consult your "VIC User's Guide" to learn 
about BASIC'S built-in functions. Then use 
MICRO Calc to help you understand how they 
work. 

MICRO Calc allows you to use 26 storage 
locations called "variables." Each variable is 
uniquely identified by a letter of the alphabet. In 
our first example, when we typed 'A = 5', we 
assigned the value of 5 to the variable A, we typed 
'B = 6' to assign the value 6 to B, and typed 
'C = A + B' to assign the sum of A and B to C. Until 
it is changed, 5 is substituted for A whenever it is 
used in an expression. Likewise, B and C retain 
their values until they are changed. 

As in a BASIC program, MICRO Calc looks at 
the lines on the screen from the top down. 
Therefore, a 'C?' on a line before C is defined will 
give the wrong answer. Also, if you assign a 
variable a new value, the new value will be used in 
all subsequent calculations. 

Editing 

MICRO Calc has limited editing capabilities. 
You can move the cursor to the end of the line 



below by pressing either RETURN or CRSR down. 
From the last line, the cursor will move to the top 
line. Similarly, CRSR up will move the cursor to 
the end of the line above, and from the top line to 
the bottom line. The only way to change an 
existing line is to delete from the right end and 
retype. 

MICRO Calc Summary 

Command Characters 

@ Calculate 

INST/DEL Delete previous character 

CRSR dn Move to end of next line 

CRSR up Move to end of last line 

RETURN Move to end of next line 

♦- LOAD or SAVE screen 

CLR/HOME Clear screen lines 

Characters Allowed 
A...Z 0...9 

/*+-=.(}>< t? 

Optional Characters (program lines must be added) 

! for remark 

: to separate multiple statements on a line 

space 

Avoiding Errors 

To alleviate the chance for problems, MICRO 
Calc disallows characters that could cause trouble. 
However, if you are not careful it is easy to make a 
fatal error. The program will stop and an error 
message, such as ?SYNTAX ERROR or ?DIVISION 
BY ZERO ERROR, will be printed. Should one of 
these occur, clear the screen, type RUN, and press 
RETURN. You will have lost everything that was 
on the screen, but you shouldn't have to reload the 
program from cassette. 

If you use parentheses to assign a variable, for 
example 'C = (A + B)/(A-B), be sure there are as 
many right parens as left parens. Also, remember 
that, unlike in algebra, multiplication here must be 
explicitly indicated with an asterisk. Use '10*B' 
and '5*(A + B)' ; not '10B' and '5(A + B). If you use a 
variable that has not been assigned in a previous 
line, its value is assumed to be zero. Therefore, 
division by an unassigned variable will result in a 
?DIVISION BY ZERO ERROR. 

Saving the Screen 

To save a format for re-use, type in just the 
assignments (A = , B = , ...) and the formulas 
(C =A + B), and then save to tape without running 
the program. For example, clear the MICRO Calc 
screen using shift CLR/HOME, and type in the 
second example |bowling average) without any 
values for A, B, and C. Don't press '@'! The 
program would crash, but this is the most 
convenient form for saving the screen. When you 
are satisfied you have typed the screen correctly, 
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save the screen to tape. On the VIC-20, press the 

' key and then press 'S' for SAVE. Type in 
'AVERAGE', position the tape, and press RETURN. 
Your screen is now stored on tape under the name 
you entered. 

Loading the Screen 

Clear the MICRO Calc screen using shift 
CLR/HOME, and press the ' *- ' key. This time 
press 'L' for LOAD, position the tape, enter 
'AVERAGE', and press RETURN. If all goes well, in 
a few seconds the screen will return with the lines 
you saved before. 

More Examples 

According to the Pythagorean Theorem, "The 
hypoteneuse of a right triangle is equal to the 
square root of the sum of the squares of the other 
two sides." You can use MICRO Calc to solve right 
triangles quickly. Enter the following lines, pressing 
RETURN after each line. 



A = 3 
B = 4 

H = SQR(At 2 + Bt 2) 
H? 



Assign one side equal to 3 

Assign another side equal 

to 4 

The equation 

The answer 



You can calculate monthly payments of installment 
loans using the following formula: 



D= (1+i) m 



i is the interest rate per month and m is the 
number of months. The principal (the amount you 
are borrowing) is divided by D to get the monthly 
payment. Below is the screen you enter to perform 
these calculations with MICRO Calc. 



A = 

M = 



1 = 1/1200 

D = (1-(1+l) t 



M)/l 



Principal 

Number of Months of the Loan 

Interest Rate (Annual 

Percentage) 

Monthly Interest Rate (decimal) 

Calculate Divisor 



hold shift and press CRSR up/dn twice] . 

P = A/D Calculate Monthly Rate 

P = INT(P*100 + '.5)/100 Round to Nearest Cent 
P? Display Payment 

Before you try it out, SAVE the screen as described 
above. When it is SAVEd the program will return 
with the cursor at the end of what you typed on the 
first line. Enter values for A, M, and I, press '@' 
and the result will appear on the eighth line. Now 
you can make a change, as you did in the example 
above,- hit '@' and instantly see the change in the 
monthly payment. 

Once you have the hang of MICRO Calc, you 
can use it to perform a wide variety of repetitive 
calculations. Be sure to save the more elaborate 
screens to tape, and you will develop a library of 
useful screens. 

Improving MICRO Calc 

MICRO Calc was intentionally kept simple so 
that it would be easy to type in and easy to use. 
The next section describes how you can make 
changes in a few lines to improve the power of 
MICRO Calc. 

Flashing cuisoi: 

With the MICRO Calc program in memory 
type the following program lines: 

4500 POKE 204,0 
4510GETT$:IFT$ = " "THEN 4510 
4520 POKE 204,1: RETURN 



For the PET use 167 instead of 204 in lines 4500 
and 4520. Normally, when the GET function is 
used, the cursor is turned off. POKEing a into 
this location turns the flashing cursor on, and 
POKEing a 1 turns it off. Incidentally, you can 
change the cursor character from the diamond to 
anything you want. Just change the diamond near 
the end of line 20 to the desired character. If you 
want to save this, or any other enhanced version, 
be sure you don't record over the original version 
of the program. 



Cursor Control Characters in Listings Expression Function 

Commodore computers allow cursor [CLRJ Clear screen 

controls to be programmed as characters [HOME] Home cursor 

within a string. However, in listings these [CD] Cursor down 

appear as reverse field characters (for instance, [CU] Cursor up 

'clear screen' is represented by a reversed heart [CR] Cursor right 

character). To make these listings easier to [CL] Cursor left 
type in and easier to understand, we have 

substituted bracketed abbreviations of the [RVS] Reverse field 

functions of these characters. When more than [OFF] Reverse off 

one appears in a row, the number of repeats [SPC] Space 

precedes the abbreviation (i.e., [2 CU] means [YEL] Yellow 



Keyjs/ 

shift CLR/HOME 
CLR/HOME 
CRSR up/dn 
shift CRSR up/dn 
CRSR left/right 
shift CRSR left/ 
right 
OFF/RVS 
shift OFF/RVS 
Space bar 
CTRL 8 



No. 58 ■ March 1983 



MICRO 



49 



Twenty working lines: 

If you have particularly lengthy screens, you 
may need more than the ten lines provided. 
Upgrading to twenty lines is easily accomplished 
by using the lines in between the original ten. 
Several program lines must be changed to 
accomplish this: 

30 NL = 20:DIMS$(NL),S(NL) 

230 PRINTRB$CR$;:GOTO110 

270 S$(LL) = S$:LL = LL- 1 :IFLL = 0THENLL= NL: 

PRINTRB$"[CH][20 CD]";:GOT01 10 
280 PRINTRB$CR$"[2 CU]";:GOT01 10 
7020 PRINTCR$S$X$:NEXT:RETURN 
8520 PRINT"[YEL]"S$"[RVS]"LEFT$(BL$,20- LEN 
(S$)):NEXT:PRINT"[CH][CD]";:RETURN 

Note that the most significant change is 
accomplished by merely replacing the value of NL 
in line 30. NL is used in lines 220, 270, 3000, 
5090, 5110, 7000, and 8500. With twenty lines, 
the calculations will take longer. 

Comments and Multiple Statements: 

For some applications, you may want to type 
several assignments on one line or include a 
comment for documentation. Change the 
following lines to add these features: 

2020 IFT$ >","ANDT$< ";"THEN2070 
2050 IFT$ = "[SPC]"ORT$ = "!"ORT$ = " t " 

THEN2070 
3015 IFLEFT$(S$(JJ),1) = "!"THEN3090 
4000 ll = 0:KK=ll 
4010 ll = ll + 1:KK = KK+1:IFII>LEN(A$) 

THENGOSUB4100:RETURN 
4020XX = ASC(MID$(A$,II,1)):IFXX = 58 

THENGOSUB41 00:GOTO401 
4030 IFXX = 33THENGOSUB4100:RETURN 
4040 POKE511 +KK,XX:GOTO4010 
4100 POKE511 +KK,0:KK = 0:SYS828:RETURN 



The program will now allow you to type colons, 
exclamation points, and spaces. Everything 
appearing after a colon on a line will be ignored in 
evaluations. It is even possible to have a whole 
line as a comment. Also, assignment statements 
(but not value requests) may be put together on 
one line, separated by colons. While these features 
make MICRO Calc more powerful, they also make 
editing an existing screen more difficult. To make 
changes, you must still delete all characters back 
to the change. This means that comments must be 
retyped each time a change is made earlier in the 
line. See the section marked "Suggestions for 
other changes:" for some tips on improving 
MICRO Calc's editing. 



Saving files on disk: 

Enter the following lines to substitute disk 
storage for cassette storage: 

5020 IFT$ = "L"THENSA = 9:F$ = ",S,R": 

GOTO5045 
5030 IFT$ = "S"THENSA=10:F$ = ",S,W": 

GOTO5045 
5045 PRINT-DRIVE NUMBER ([RVS]0[OFF] OR 

[RVS]1[OFF])" 
5046GOSUB4500:IFT$<"0"ORT$>"1"THEN5046 
5050 INPUT"[2CD]NAME";NA$:NA$ = T$ + ":" 

+ NA$ + F$ 
5060OPEN1,8,SA,NA$:IFSA = 10THENGOSUB5090: 

GOTO5080 

The major changes are selecting the drive number, 
changing the primary and secondary addresses, and 
adding the prefix and suffix to the file name. The 
actual reading and writing process is exactly the 
same as for cassette. 

Suggestions for other changes: 

With just a little work, MICRO Calc can be 
made to handle strings as well as numbers. First, 
all string names within the program must be 
changed to two characters. Second, a separate 
series of subroutines with an appropriate calling 
routine, similar to 6500-6810, must be added to 
extract the proper values for printing. Third, the 
quote and dollar characters must be accepted by 
the editor. Finally, the print routine at 7000 must 
be made to recognize and print strings. Probably 
other minor problems would have to be solved 
as well. The editor can be improved considerably 
by allowing insert, delete, and cursor movements 
within a line. With larger screens, it may be 
desirable to divide some of the lines into 
smaller cells. 



How the Program Works 

If you examine listing 1, you will notice that 
all floating point variable names have two 
characters. That is because the single-character 
names A-Z are reserved for the program user. The 
key to operation of the program is the machine- 
language program contained in the DATA 
statements 9828-9868. Listing 2 is an assembly 
listing (for the VIC) of this routine. The heart of 
the routine is two JSRs to the BASIC ROM 
routines LET and TKENIZE. The rest is involved 
with manipulating the character pointer. Using 
this little bit of machine language saves countless 
lines of BASIC programming. 

The routine is POKEd into memory as soon as 
the screen is cleared and the screen color set to 
black (line 10). The next two lines define 
constants and dimension the two arrays used to 
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hold the contents and values for each line of the 
MICRO Calc screen. Using constants instead of 
literal values does more than save space in the 
program. It also speeds execution (BASIC doesn't 
have to figure out what 10 means every time, 
when it can look it up under NL) and makes 
changes easy. Line 100 starts the mainline of the 
program. The line pointer is set to the first line 
and the screen is printed using subroutine 8500. 
Line 1 10 is where the loop returns to whenever 
the cursor is moved to a new line. The string array 
element containing the contents of the current 
line is moved into a temporary location. Then the 
line is printed, followed by the cursor (DI$). 
Subroutine 2000 GETs characters from the 
keyboard, accepts or rejects them, and returns on 
an acceptable character. Some characters, checked 
in 2010, are control or editing characters. These 
are dealt with in line 130-180 in the main 
program. Other acceptable characters are printed, 
with a return to the main program where they are 
added to the temporary line string in 190. In line 
200, the length of the string is checked. If the last 
character fills the line, the temporary string is 
stored in that line's array element, and the cursor 
automatically advances to the next line. 

Lines 210-230 handle advancing to the next 
line, lines 240-260 handle a delete, and lines 
270-280 handle moving up one line. Line 130 
handles the '@' or 'calculate' directive. First the 
cursor is removed by printing RB$. Then the line 
contents are stored in the proper array element. 
Next the evaluation (3000) and printing (7000) 
routines are called. Finally the cursor is returned 
to the end of the first screen line. 

The evaluation subroutine (3000-3030) sets all 
the single-letter variables equal to zero (subroutine 
9000). Again, using A instead of zero saves a little 
execution time. If the last character is a '?', then 
subroutine 6500 is used to assign the proper 
variable value to the value array element for that 
screen line. Ideally, the ON...GOSUB structure 
should have all 26 routines listed on one line. 
However, because the VIC allows only 88 
characters on a program line, we have to split it 
up. This is accomplished by converting the codes 
for the letters A-Z to numbers 1 to 26. If the 
resulting number is 13 or less, then line 6510 is 
used. Numbers 14 to 26 are converted to 1 to 13, 
and line 6530 is used. If the last character is not a 
'?', then the statement is assumed to be an 
assignment (A = , Z = , etc.). Subroutine 4000 
POKEs the characters of the line one-by-one into 
the BASIC input buffer and sticks a zero at the 
end. The machine-language routine described 
above is called with SYS828, and a return is made 
to line 3030. 

Subroutine 3000 continues through the array of 





MICRO Calc Variable Usage 


Constants 


NL 


number of screen lines 


CR$ 


carriage return 


DL$ 


delete character 


RB$ 


reverse blank 


BL$ 


twenty spaces 


DI$ 


diamond cursor 



Variables 

A . . .Z reserved for program user 

II loop counter 

JJ loop counter 

LL screen line pointer 

XX temporary, used in value passing 

BB letter of variable converted to index 1...26 

SS current element of value array 

S$ working copy of screen line 

T$ last character from GET (4500) 

A$ working string for tape and disk 

X$ used in formatting screen lines 

S$( ) array of screen line contents 

S[ ) array of screen line values 

screen lines, handling value requests (A?) one way 
and handling assignments (A = ) another. Only 
subroutine 5000 is left. The LOAD /SAVE routine 
is invoked whenever the ' ' key is pressed. First 
a choice is offered between LOAD and SAVE. 
Then the file name is entered. Subroutine 5090 is 
used for SAVEing and subroutine 5110 for 
LOADing. When a screen is saved, each element 
in the line array S$( ) is added to the string A$, 
along with a carriage return. If the array element 
is empty it is filled with a dummy character. The 
carriage returns are used to separate the items, so 
they can be read back with the INPUT # statement 
in line 5110. The dummy characters are discarded 
and replaced with empty or "null" strings. 

Before returning to the main program, the 
machine-language routine must be POKEd back 
into the cassette buffer (8000). It is destroyed on 
any LOAD or SAVE operation. Finally, subroutine 
8510 is called to reprint the screen. Note that a 
call to 8500, as in line 100, prints an empty 
screen, while starting at 8510 does not clear the 
arrays. 

Running MICRO Calc on Other 
Commodore Computers 

MICRO Calc will run with relatively few 
changes on any Commodore machine. Provided 
here are substitute program lines for the 
Commodore 64 (listing 3), 4.0 PET (listing 4), 2.0 
PET (listing 5), and 1.0 PET (listing 6). The only 
differences are in line 10 and lines 9828-9868. 
Type the lines appropriate to your machine, 
followed by the rest of listing 1. The program will 
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now run as it is. However, you may want to take 
better advantage of your 40-column screen by 
changing the lines in listing 7. 



Listing 1: MICRO Calc BASIC Listing (for VIC) 



10 PRINT" [CLR]":POKE36879,8:GOSUB8000 
20 CR$=CHR$(13) :DL$=CHR$(20) :RB$="[RVS] 

[CL] " : BL$=" [20 SPACES] " :DI$="tfOFF] [CL] " 
30 NL=10:DIMS$(NL),S(NL) 
100 LL=1:GOSUB8500 
110 S$=S$(LL) :IFRIGHT$(S$,1)="?"THEN 

PRINT" [RVS] "BL$CR$" [CD] " ; 
120 GOSUB2000 
130 IFT$="g"THENPRINTRB$:S$(LL)=S$: 

GOSUB3000:GOSUB7000: PRINT" [CH] [CD]"; : 
LL=1:G0T0 110 
140 IFT$="[CLR]"THEN100 
150 IFT$=CR$ORT$="[CDV>THEN210 
160 IFT$="[CU]"THEN270 
170 IFT$=DL$THEN240 
180 IFT$=""TKENS$(LL)=S$: 
GOSUB5000 : LL=1 : GOTO110 
190 S$=S$+T$ 

200 IFLEN(S$) <19THEN120 
210S$(LL)=S$ 

220 LL=LL+1:IFLL=NL+1THENLL=1: 
PRINTRB?" [CH] [CD] "; :GOTO110 
230 PRINTRB$CR$CR$; :GOTO110 
240 IFS$=""THEN120 
250 PRINTRB$"[2 CL]"DI$; 
260 S$=LEFT$(S$,LEN(S$)-1) :GOTO120 
270 S$(LL)=S$:LL=LL-1:IFLL=0THENLL=NL: 

PRINTRBJ" [CH] [19 CD] " ; :GOTO110 
280 PRINTRB$CR$"[3 CU]"; :GOTO110 
2000 GOSUB4500 
2010 IFT$="g"0RT$=CR$0RT$=" [CD] "OR 

T$=" [CU] "0RT$=""0RT$=DL$0RT$= 

" [CLR] "THENRETURN 
2020 IFT$ > " , "ANDT$ < " ; "THEN2070 
2030 IFT$ > " ; "ANDT$ < " [ "THEN2070 
2040 IFT$ > " ' "ANDT$ < " , "THEN2070 
2050 IFT$="t"THEN2070 
2060 GOTO2000 
2070 PRINTT$DI$; : RETURN 
3000GOSUB9000:FORJJ=1TONL:IFRIGHT$(S$(JJ),1) 

= " ? "THENGOSUB6500 : GOTO3030 
3010 IFLEN(S$(JJ) ) <3THEN3030 
3020 A$=S$(JJ) :GOSUB4000 
3030 NEXT: RETURN 
4000 F0RII=1T0LEN(A$):XX=ASC(MID$(A$,II,1)): 

P0KE511+II,XX:NEXT 
4010 POKE511+II,0:SYS828:RETURN 
4500 GETT$:IFT$=""THEN4500 
4510 RETURN 
5000 PRINT"[CLR][RVS]L[OFF]OAD OR 

[RVS]S[OFF]AVE" 
5010 GOSUB4500 

5020 IFT$="L"THENSA=0:GOTO5050 
5030 IFT$="S"THENSA=1:GOTO5050 
5040 GOTO5010 
5050 INPUT" [2 CD]NAME";NA$ 
5060 0PEN1,1,SA,NA$:IFSATHEN 

GOSUB5090:GOTO5080 
5070 GOSUB5110 

5080 CLOSE1:GOSUB8000:GOSUB8510:RETURN 
5090 A$="":F0RII=1T0NL:S$=S$(II):IFS$=""THENS$="?" 
5100 A$=A$+S$+CR$:NEXT:PRINT#1,A$:RETURN 
5110 F0RII=1T0NL:INPUT#1,A$:IFA$="?"THENA$="" 
5120 S$(II)=A$:NEXT: RETURN 
6500 BB=ASC(LEFT$(S$(JJ),2))-64: 

IFBB > 13THENBB=BB-13 :GOTO6530 
6510 ONBBGOSUB6560, 6570, 6580, 6590, 6600, 6610, 

6620,6630,6640,6650,6660,6670,6680 
6520 GOTO6540 
6530 ONBBGOSUB6690 , 6700, 6710 , 6720 , 6730, 6740 , 

6750,6760,6770,6780,6790,6800,6810 
6540S(JJ)=XX 
6550 RETURN 
6560 XX=A: RETURN 
6570 XX=B: RETURN 



6580 XX=C: RETURN 
6590 XX=D: RETURN 
6600 XX=E: RETURN 
6610 XX=F: RETURN 
6620 XX=G: RETURN 
6630 XX=H: RETURN 
6640 XX= I: RETURN 
6650 XX= J: RETURN 
6660 XX=K: RETURN 
6670 XX=L: RETURN 
6680 XX=M: RETURN 
6690 XX=N: RETURN 
6700 XX=0: RETURN 
6714 XX=P: RETURN 
6720 XX=Q: RETURN 
6730 XX=R: RETURN 
6740 XX=S: RETURN 
6750 XX=T: RETURN 
6760 XX=U: RETURN 
6770 XX=V: RETURN 
6780 XX=W: RETURN 
6790 XX=X: RETURN 
6800 XX=Y: RETURN 
6810 XX=Z: RETURN 
7000 PRINT" [CH] "; :F0RII=1T0NL: 

S$=S$(II):SS=S(II) 
7010X$="":IFRIGHT$(S$,1) = "?"TKENX$=STR$(SS) 

+"[RVS]"+LEFT$(BL$,l6-LEN(STR$(SS))) 
7020 PRINTCR$S$X$: NEXT: RETURN 
8000 RESTORE : FORI I =0TO42 : READAA : 

P0KE828+I I , AA : NEXT : RETURN 
8500 FORII=1TONL:S$(II) = "":S(II)-0:NEXT 
8510 PRINT"[CLR] [CD]"; :F0RII=1T0NL:S$=S$(II) 
8520 PRINT" [YEL]"S$" [RVS] "LEFT$(BL$,20-LEN(S$) ) 

" [CD] " :NEXT : PRINT" [CH] [CD] " ; :RETURN 
9000 A=0:B=A:C=A:D=A:E=A:F=A: 

G=A:H=A:I=A:J=A:K=A:L=A:M=A 
9010 N=A:0=A:P=A:Q=A:R=A:S=A:T=A: 

U=A:V=A:W=A:X=A:Y=A:Z=A:RETURN 
9828 DATA165, 122, 141,112, 3, 165, 123, 141, 

113,3,169,0,133,122,169,2,133,123,32,121 
9848 DATA197, 169, 0,133, 122, 169, 2, 133, 123, 

32,165,201,173,112,3,133,122,173,113,3 
9868 DATA133,123,96 



Listing 2: MICRO Calc Assembly Listing (for VIC). 
For Information only. Don't try to type this In. 



0010 LET 


-DE JC9A5 


;C64-$A9A5 


4.O-JB930 




0011 ; 




2.0-$C8AD 




0015 TKNIZE 


-DE $C579 


;C64-$A579- , 4.0-$B4FB 




0016 ; 




2.0-$C495 




0020 INBUFF 


.DE $200 






0030 CHRPTR 


.DE $7A 


;C64-$7A, - 2 8. 4-$77 




0035 TEMP 


.DE $0370 






0040 ; 








0050 


.BA $33C 






0060 


.OS 






0070 ; 






033C- A5 7A 


0080 


IDA »CHRPTR 


;SAVE POINTER 


033E- 8D 70 03 


0090 


STA TEMP 




0341- A5 7B 


0100 


IDA »CHRPTR1 




0343- 8D 71 03 


0110 


STA TEMPI 




0346- A9 00 


0120 


IDA #L, INBUFF 


; POINT TO INPUT BUFFER 


0348- 85 7A 


0130 


STA *CHRPTR 




034A- A9 02 


0140 


IDA #H, INBUFF 




034C- 85 7B 


0150 


STA *CHRPTR1 




034E- 20 79 C5 


0160 


JSR TKNIZE 


;T0KENIZE - STATEMENT 


0351- A9 00 


0170 


IDA #L, INBUFF 


; POINT TO INPUT BUFFER 


0353- 85 7A 


0180 


STA *CHRPTR 




0355- A9 02 


0190 


IDA #H, INBUFF 




0357- 85 7B 


0200 


STA »CHRPTR1 




0359- 20 A5 C9 


0210 


JSR LET 


; VARIABLE - ASSIGNMENT 


035C- AD 70 03 


0220 


IDA TEMP 


; RESTORE POINTER 


035F- 85 7A 


0230 


STA *CHRPTR 




0361- AD 71 03 


0240 


IDA TEMPI 




0364- 85 7B 


0250 


STA »CHRPTR1 




0366- 60 


0260 


RTS 






0270 


.EN 
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Listing 3: Revisions for Commodore 64 

10 PRINT"[CLR]":POKE53281 ,0:GOSUB8000 

9828 DATA165.122.141 ,112,3,165,123,141 ,113,3, 
169,0,133,122,169,2,133,123,32,121 

9848 DATA1 65, 169,0,1 33, 122, 169,2, 133, 123,32, 165, 
169,173,112,3,133,122,173,113,3 

9868 DATA1 33, 123,96 

Listing 4: Revisions for PET BASIC 4.0 

10 PRINT"[CLR]":GOSUB8000 

9828 DATA165, 119,141, 112, 3,165,120,141, 113, 3 
169,0,133,119,169,2,133,120,32,251 

9848 DATA180, 169,0, 133, 119,169,2,133,120,32,48 
185,173,112,3,133,119,173,113,3 

9868 DATA1 33,1 20,96 



Listing 5: Revisions for PET BASIC 2.0 

10 PRINT"[CLR]":GOSUB8000 

9828 DATA1 65, 11 9, 141, 11 2, 3, 165, 120, 141, 11 3, 3 
169,0,133,119,169,2,133,120,32,149 

9848 DATA196, 169,0, 133,1 19,169,2,133,120,32 
173,200,173,112,3,133,119,173,113,3 

9868 DATA133, 120,96 



Listing 6: Revisions for PET BASIC 1.0 

10 PRINT"[CLR]":GOSUB8000 

9828 DATA165.201, 141, 112,3, 165,202, 141, 113,3 
169,10,133,201,169,0,133,202,32,141 

9848 DATA196, 169,10,133, 201, 169,0, 133,202,32 
157,200,173,112,3,133,201,173,113,3 

9868 DATA1 33,202,96 

Listing 7: Revisions for 40 Columns 

20CR$ = CHR$(13):DL$ = CHR$(20):RB$ = "[RVS] 
[CL]":BL$="[3flSPACES]":DI$ = " 
[OFF] [CL]" 
200 IFLEN(S$) 37THEN120 

7010 X$ = " ":IFRIGHT$(S$,1) = "?"THENX$ = STR$ 
(SS) + "[RVS]" + LEFT$(BL$,34 - LEN 
(STR$(SS) ) ) 
8520 PRINT"[YEL]"S$"[RVS]"LEFT$(BL$,38 - LEN 
(S$)):NEXT:PRINT"[CH][CD]";:RETURN 



Apple MICRO Calc Summary 



Command Characters 

@ Calculate 

•*- Delete previous character 

RETURN Move to end of next line 

-*■ Move to end of last line 

ESC LOAD or SAVE screen 

& Clear screen lines 

Chazactezs Allowed 
A...Z 0...9 



1 REM * MICR0CALC 

2 REM * BY P. DALEY 

3 REM » COPYRIGHT (C) 1982 

4 REM * BY MICRO INK 

5 NL=23 
10 HOME 
20 CC = 95 

30 FOR II = 1 TO 38:BL? 
40 GOSUB 430 
50 GOTO 75 

60 VTAB LL: PRINT S$(LL); 

61 IF MID$ (S$(LL),2,1) = 

62 INVERSE 
65 PRINT CHR$ (CC); RIGHT$ (BL$, 38 

(BB$(LL))) : NORMAL 
70 RETURN 
75 YY = 
80 LL = 1 
90 GOSUB 60 

100 AA = PEEK ( - 16384) 
105 IF FLAG = 1 THEN FLAG =0: FOR II 
110 POKE - 16368,0 
120 AA = AA - 128 

130 IF AA = 64 THEN FUG = 1: G0SUB 950: GOTO 250 

131 IF AA = 38 THEN GOSUB 530 :LL = 1: G0SUB 60: GOTO 100 
135 IF AA = 44 OR AA = 58 OR AA = 59 OR AA = 93 THEN 240 
140 IF AA > 39 AND AA < 95 THEN 210 

150 CC = 32: GOSUB 60 

160 IF AA = 13 THEN LL = LL + 2: IF LL 

170 IF AA = 8 AND YY > 1 THEN S$ (LL) 

( S$(LL)) - 1):YY = YY - 1: GOTO 

IFAA=8ANDYY=1 THEN S$ (LL) = 



BL? + " ": NEXT :BL$ = BL? + "»" 

THE PRINT SS$(LL); 

LEN (S$(LL)) - LEN 



IF AA <127 THEN 100 

1 TO NL:SS$(II) 



175 
180 



> NL THEN LL = 1 
= LEFT$ (S?(LL), LEN 
180 
"":YY = YY - 1 



IF AA = 21 THEN LL = LL 

AA = 27 THEN GOTO 1000 
200 GOTO 230 
210 YY = YY + 1: IF YY > 38 THEN CC 

Y = 0: GOTO 230 
220 S$(LL) = S$(LL) + CHR$ (AA) 
230 YY = LEN (S$(LL)):CC = 95: GOSUB 60 
240 GOTO 100 
250 XY = LL 

255 FOR II = 1 TO NL STEP 2 
260 IF LEN (S$(II)) < 2 THEN 410 
270 IF MID$ (S$(II),2,1) <> "=" THEN 350 
280 FOR JJ = 1 TO LEN (S$(II)) 
290 POKE 511 + JJ, ASC ( MID$ (SI (II),JJ,1)) 
300 NEXT JJ 
310 POKE 511 + JJ.13 
320 CALL 768 

350 IF MID$ (S$(II),2,1) <> "?" THEN 410 
360 GOSUB 640 
390 SS$(II) = STR$ (XX) 
400 LL = II:CC = 32: GOSUB 60 

410 NEXT II 

411 LL = XY:CC = 32: GOSUB 60 

412 LL = l:CC = 95: GOSUB 60 
420 GOTO 100 

430 FOR I = 1 TO 29:S$ = S$ + "*": NEXT 
440 SS$ = "* *" 

450 VTAB 5: PRINT S$: FOR I = 1 TO 10 



2: IF LL < 1 THEN LL = NL190 IF 



32: GOSUB 60:LL = LL + 2:Y 



(continued) 
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Circle No. 33 



maxell 



the top of the line 

Efflil 




at the lowest price! 



Call our Modem Hotline- (anytime) - 619-268 4488 
tor exclusive monthly specials. Our tree catalog 
contains more than 600 fantastic values 

ABC Data Products 



8868 CLAIREMONT MESA BLVD. 
SAN DIEGO, CALIFORNIA 92123 

ORDERSONLY ITTTELEX INFORM) 
800-854-1555 4992217 619-26 



INFORMATION 
619-268-3537 



F(OHfffl07V 



Ver. 2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH- 
79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 
Professionally written tutorial & user manual 200 PG. 

Screen editor with user -definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lowercase keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics 
COMBINATION PACKAGE 
(CA res. add 6% tax: COD accepted) 



$ 99.95 



49.95 
39.95 



MicroMotion 

12077 Wilshire Blvd. #.506 
L.A..CA 90025 (213)821^340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 




(continued) 

460 PRINT SS$: NEXT 

470 PRINT S$: VTAB 8: HTAB 5: PRINT "MICRO CALC FOR APPLE" 

480 VTAB 10: HTAB 5: PRINT "BY P. DALEY" 

490 VTAB 12: HTAB 5: PRINT "COPYRIGHT (C) 1982" 

500 DIM S$(25),SS$(25) 

510 G0SUB 570 

520 FOR I = 1 TO 500: NEXT 

530 INVERSE : VTAB 1 

535 HOKE 

540 FOR I 



1 TO NL STEP 2: PRINT BL$: IF I <> NL THEN PRINT 



542 S*(I) 
545 NEXT 



550 
560 
570 
571 
572 



573 
574 
575 
630 



730 XX 
740 XX 
750 XX 
760 XX 
770 XX 
780 XX 
790 XX 
800 XX 
810 XX 



K: 
L: 
M: 
N: 
0: 



NORMAL 

RETURN 

FOR I = 768 TO 802 

READ A: POKE I, A: NEXT 

DATA 165,184,72,165,185,72, 

169,0,133,184 

DATA 169,2,133,185,32,89,213,169,0,133 

DATA 184,169,2,133,185,32,7 0,218,104,133 
DATA 185,104,133,184,96 
RETURN 
640 BB = ASC ( LEFT? (SJ(II),1))- 64 

650 ON BB GOTO 670,680,690,700,710,720,730,740,750,760,770,7 
,790,800,810,820,830,840,850,860,870,880,890,900,910,920 
660 RETURN 
670 XX = A: RETURN 
680 XX = B: RETURN 
690 XX = C: RETURN 
700 XX = D: RETURN 
710 XX = E: RETURN 
720 XX = F: RETURN 
G: RETURN 
H: RETURN 
I: RETURN 
J: RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
820 XX = P: RETURN 
830 XX = Q: RETURN 
840 XX = R: RETURN 
850 XX = S: RETURN 
860 XX = T: RETURN 
870 XX = U: RETURN 
880 XX = V: RETURN 
890 XX = V: RETURN 
900 XX = X: RETURN 
910 XX = Y: RETURN 
920 XX = Z: RETURN 

950 A=0:B=A:C=A:D=A:E=A:F=A:G=A: H=A:I=A:J=A:K=A:L=A:M=A:N=A: 
:P=A:Q=A:R=A:S=A:T=A:D=A: V=A:U=A:X=A:Y=A:Z=A:RETURN 
HOME :DJ = CHR$ (4) 
0NERR GOTO 1000 
VTAB 10: INVERSE : PRINT "S" ; 
PRINT "AVE OR "; 

PRINT "L"; 
PRINT "0AD?" 
PRINT "< RETURN > FDR CATALOG." 

PRINT : IF ASC (AS) = 13 THEN PRINT D$"CATAL0G" 
: GET A$: GOTO 1000 
IF AJ = "S" THEN G0SUB 1100 
IF At = "L" THEN G0SUB 1200 
HOME : POKE 216,0 
1090 CC = 32: FOR LL = 1 TO NL STEP 2 : G0SUB 60: NEXT : CC = 95: 
GOTO 80 
PRINT : PRINT "FILENAME?": INPUT A$ 
PRINT D$"0PEN"A? 
PRINT DJ"WRITE"A$ 
FOR II = 1 TO 25 
PRINT S$(II) 
NEXT 

PRINT DJ"CL0SE": RETURN 
PRINT : PRINT "FILENAME?": INPUT A$ 
PRINT D?"0PEN"AJ 
PRINT D$"READ "AJ 
FOR II = 1 TO 25 
INPUT SJ(II) 
NEXT 
PRINT D$"CL0SE": RETURN 



0=A 



1000 
1001 
1010 
1020 
1030 
1040 
1050 
1060 

1070 
1080 
1085 



1100 
1110 
1120 
1130 
1140 
1150 
1160 
1200 
1210 
L220 
1230 
1240 
1250 
1260 



NORMAL 
INVERSE 
NORMAL 
PRINT 
GET A$: 



AICRO 



Circle No. 32 



54 



MICRO 



No. 58 - March 1983 



The Executive Secretary 



Document editor • Mall list merge for business letters 

Powerful printing program • Pre-printed forms manager 

Flexible database • Electronic mall 

• Alphabetical indexer for books and theses 



INTEGRATED means that 
all of the above is included 
in the $250 suggested retail 
price, a combination that 
would cost hundreds of dol- 
lars more— IF you could find 
a set of programs that would 
work together in the first 
place. 

INTEGRATED means that 
every part of the package 
follows the same rules. 
There's no need to learn one 
set of keypresses for the 
editor and a separate set of 
rules for the database. 



RELIABLE means that ear- 
lier versions of this software 
have been in the field for 
years on the Apple. 



RELIABLE means that thou- 
sands of users have logged 
more than 1,000,000 hours 
of use on the Apple version. 

RELIABLE means that we 
back you up after the sale 
with a hotline number 
printed right on the program 
disk. If your dealer doesn't 
know the answer, we do 



THE EDITOR: Auto-con- 
figures to 40 or 80 columns 
on the Apple lie, supports a 
wide variety of 80 column 
boards, or runs in 40 column 
mode on older Apples. A 
coupon for a free Revision 7 
LCA is included for older 
Apples. 



THE DATABASE: Our users 
tell us that the Electronic 
Card File is worth the price 
of the entire package. It's 
not really, but with its ease 
of use, its multiple alphabet- 
ic and numeric sorts, its re- 
port options that include to- 
tals and subtotals, it is supe- 
rior to many databases cost- 
ing well over $100.00. 



PRE-PRINTED FORMS 
MANAGER: Use a se- 
quence of special embed- 
ded commands to define the 
row and column positions of 
the blanks on pre-printed 
forms. Our template helps 
you. Then use mail-list 
merging to combine infor- 
mation from your database 
with your pre-printed forms. 



fgggS 

^M ^^ ^ ^^ ^^^^^^^^^^^ ELECTF 



THE PRINTER: For more 
demanding output needs, 
you can embed format com- 
mands in your document 
while you edit and let our re- 
formatting printer program 
handle all of your layout 
concerns. More than 40 em- 
bedded commands allow 
you to control every aspect 



MAIL LIST MERGE: You 

can write documents in the 
editor that call for informa- 
tion from the Electronic 
Card File and merge the in- 
formation to produce cus- 
tomized forms and form let- 
ters. Conditional printing al- 
lows you to skip words, 
blocks of text, or entire let- 
ters based on criteria that 
you define in each card in 
the card file. And you can 
also draw information from 
other popular databases, 
from Visicalc, and from your 
own custom programs. 




ELECTRONIC MAIL: With a 
Hayes Micromodem you 
can transfer your docu- 
ments to another compu- 
ter—or to your local typeset- 
ter for printing. 

SPELLING CHECKER: Eas- 
ier to use than any other 
spelling checker. Ours 
comes with 10,000 words 
and a capacity for 15,000 
more. Or you can start your 
own list from scratch. Docu- 
ments are scanned, and you 
are shown misspellings in 
context. Correct them on- 
the-fly, or add words to the 
dictionary as you scan. A 
$75.00 option. 



of layout, including pagina- 
tion, binding margins, flex- 
ible page headers, volume- 
length documents, outline 
indentation, and far more. 
You can employ electronic 
shorthand so that commonly 
used phrases are represent- 
ed by three or fei»er key- 
strokes. And if your printer 
is capable of it, you can do 
justification by incremental 
spacing, boldface, and more. 



SOF/SYS, inc 



4306 Upton Ave. South, Minneapolis, MN 55410 




ALPHABETICAL INDEXER: 

This unique tool allows you 
to specify page numbers for 
each occurrence of a term 
and to produce a properly 
formatted alphabetical in- 
dex of those terms. Two 
levels of indexing are sup- 
ported, so that entries like 
beans, navy' and beans, 
green' are handled properly 
with two levels of indenta- 
tion. 



ORDER BY PHONE 

Available at your local 
dealer or call us at 

(612)929-7104 

We accept VISA/MasterCard 



Ask for The 
Executive Secretary 
at your local dealer. 



Circle No. 34 



No. 58- March 1983 



MICRO 



55 



Lyco Computer Marketing & Consultants 



TO ORDER 

CALL US 



TOLL FREE 800-233-8760 

In PA 1-717-398-4079 



SPECIAL 810 DISK DRIVE $419. 

mms*ilAC*E? NEC 8023 PRINTER... $449. 1 
PURCMAOt PERCOMAT£8DISK...$395.| 

DESIGNER TEE-SHIRT 
with PURCHASE of 

800 48 K RAM . . . $489.00 




ATARI 



A Warner Communtcattons Company 



ATARI HARDWARE 



410 CASSETTE RECORDER ....$ 75.00 

825 PRINTER $585.00 

830 PHONE MODEM $149.00 

850 INTERFACE $1 64.00 

PACKAGES 

CX482 EDUCATOR $119.00 

CX483 PROGRAMMER $54 00 

CX488 COMMUNICATOR $219 00 

CX419 BOOKKEEPER $189 00 

KX7104 ENTERTAINER S09.00 

SOFTWARE 

CXL4012 MISSILE COMMAND .. .$28.75 

CXL401 3 ASTEROID $28.75 

CXL4O20 CENTIPEDE $32.75 

CXL4022 PACMAN $32.75 

CXL4011 STAR RAIDER $34.75 

CXL4004 BASKETBALL $26.75 

CXL40O6 SUPER BREAKOUT ....$28.75 

CXL4O08 SPACE INVADER $28.75 

CX8130 CAVERNS OF MARS $31.75 

CX41 08 HANGMAN $12.75 

CX4102 KINGDOM $12.75 

CX41 1 2 STATES & 

CAPITALS $12.75 

CX4114 EUROPEAN 

COUNTRIES $1 2.75 

CX41 09 GRAPHIT $1 6.75 

CX4121 ENERGY CZAR $12.75 

CX41 23 SCRAM $19.75 

CX4101 PROGRAMMING I $19.75 

CX4106 PROGRAMMING II $22.75 

CX41 1 7 PROGRAMMING III $22.75 

GLAXIAN $32.75 

DEFENDER $32.75 

JUGGLES $23.75 

SPEED READING $55.75 

CXL4O07 MUSIC COMPOSER .... $33.75 

CXL4O02 ATARI BASIC $45.75 

CX81 26 MICROSOFT 

BASIC $65.75 

CXL4O03 ASSEMBLER 

EDITOR $45.75 

CX81 26 MACRO 

ASSEMBLER $69.75 

CXL4018 PILOT HOME $65.75 

CX405 PILOT EDUCATOR $99.75 

CX415 HOME FILING 

MANAGER $41.75 

CX414 BOOKKEEPER $11 9.75 



NEW RELEASES 

ATARI 1 200 

COMPUTER 

THIRD PARTY SOFTWARE 

EASTERN FRONT 1941 $25.50 

OUTLAW/HOWITZER $15. 50 

WIZARD of WAR $31.00 

GORF $31.00 

FROGGER $26.00 

CHOP LIFTER $27.75 

APPLE PANIC $23.75 

PREPPIE $19.95 

STAR WARRIOR $28.00 

CRUSH, CRUMBLE, 4CHOMP $23.00 

SHOOTING GALLERY $19.95 

VIDEO MATH FLASH $12.00 

MY FIRST ALPHABET $25.50 

BAHA BUGGIES $24.95 

TEMPLE of ASPHAI $27.95 

UPPER REACHES 

of ASPHAI $15.00 

TRACK ATTACK $23.00 

STAR BLAZER $25.00 

LABYRINTH $23.00 

SEA FOX $23.00 

POOL 1.5 $26.95 

SPEEDWAY BLAST (ROM) $29.95 

INHOME 

400 KEY BOARD $99.75 

PROTECTOR $24.95 

NAUTILUS $24.95 

SLIME $24.95 

SUBMARINE 

COMMANDER (ROM) $36.95 

JUMBO JET 

PILOT (ROM) $36.95 

SOCCER (ROM) $36.95 

KICKBACK (football ROM) $36.95 



POLICY 



I In-Stock items shipped within 24 hours of order. Personal 
[checks require four weeks clearance before shipping. No 
I deposit forCOD orders. PA residents add sales tax. All products 
I subject to availability and price change. Advertised prices 
I show 4% discount offered for cash. Add 4% for Mastercard and 
I Visa. 



PRINTERS 

PROWRtTERi $479.00 

PROWRITERII $ CALL 

OKIDATA82A $419.00 

OKIDATA83A $639.00 

OKIDATA84 $1029.00 

OKIDATA TRACTOR $63.00 

NEC8023A $449.00 

SMITH CORONA $589.00 

STARWRITER $1475.00 



BUSINESS SOFTWARE 

ATARI WORD PROCESSING .... $1 09.00 

LETTER PERFECT (ROM) $1 49.00 

LETTER PERFECT (disc) $1 29.00 

TEXTWIZZARD $ 89.00 

DATA PERFECT $ 75.00 

VISICALC $1 69.00 

DATASAM/65^^^^^^^ ... .$125.00 

JOYSTICKS 

ATARI CX-40 

LESTICK 

WICO COMMAND CONTROL 

WICO RED BALL 

WICO TRACK BALL 

STICKSTAND^ iiiiiiiiiii . 

Book of ATARI 

Software 
(346 pages) . . $1 9.95 



PERCOM 

SINGLE DRIVE (SD) $ 389.00 

SINGLE DRIVE (DO) $549.00 

DUAL DRIVE (00) $869.00 

DUAL HEAD (00) $669.00 



TO ORDER 
CALL TOLL FREE 

1 800-233-8760 

|ln PA 1-717-398-4079 
or send order to 
Lyco Computer 
P.O. Box 5088 

I Jersey Shore, PA 177401 



JOYSTICKS 

ATARI CX-40 


...$18.00 


LESTICK 

WICO COMMAND CONTROL 
WICO RED BALL 


...$34.00 

$23.75 

...$26.75 


WICO TRACK BALL 


...$54.75 


STICK STAND 


...$ 6.75 



Digi-Draft for 
Atari 400/800 



by Timothy Kilby 



This drawing program allows you to construct 
images on an Atari GRAPHICS 7 screen. 
Convenient commands change colors, load and 
save, use alternate character sets, and draw points, 
lines, circles, and rectangles. 

DIGI-DRAFT is joystick operated (port #1) and 
menu driven. Regular drawing is done in the 
default mode. You will have to press a key to 
select one of the options. You won't see an option 
in the menu to change all the playfield color 
registers; just press SELECT to initiate this option. 
The rest of the menu selections are 
DIAGONAL LINE: Draws a diagonal line from the 
last plotted point. 

RECTANGLE: Automatically draws a rectangle. 
Position cursor at one corner and press FIRE. 
Position cursor at opposite corner and press R. 
CIRCLE: Draws arcs and circles, either filled or 
not. Circles near the screen's edge will continue to 
plot even if off screen. 

BROKEN LINES: Draws hidden or dotted lines 
instead of solid lines. 

FILL: Draws a line from the last plotted point, 
then fills all areas to the right with solid color. Fill 
lines cross screen unless stopped by a drawn line 
or plotted point. 

TEXT: Controls text. Enter a text string, then 
position cursor. Text string will be plotted below 
and to the right of the cursor. Text will wrap 
around the edges of the screen. You may use all 
256 characters including inverse and control 
characters. 

LINECOLOR: Chooses color for lines; press 1, 2, 
or 3. Color 4 is the background color, so it acts as 
an eraser. Set specific hues with the SELECT 
option. 

CLEAR: Erases the entire screen. 
NEW FONT: Controls character style. Load a new 
character set from tape or disk. Characters from 
that set will appear only in the graphics window. 
Change character sets at any time. 



SAVE SCREEN: Saves files. Press S to save your 
picture as a data file. If you are using a disk drive, 
enter a complete filename. 
LOAD SCREEN: Loads files. Press L to load a 
previously saved data file. 

If you don't like DIGI-DRAFT' s sound, simply 
eliminate lines 135, 420, and 1550. When you are 
saving or loading files to and from a disk, you 
must use complete filenames such as 
Dl FILENAME. EXT. Cassette users may wish to 
change nine lines to those in the cassette revision 
(listing 2): otherwise type "C:" whenever you're 
asked to enter a filename. Typing the remark 
statements is not necessary. Type all underlined 
spaces and characters in inverse by pressing the 
Atari logo key. Lines 8030 and 9050-9070 must be 
typed exactly as printed or the program will crash. 
You can save memory by changing frequently used 
constants like and 1 to variables (but this will 
make reading the code more difficult). 



DIGIDRAFT's Design 



DIGI-DRAFT' s design begins with a simple 
GRAPHICS 7 drawing program, then uses 
advanced program design for unique results. The 
cursor has been replaced with a cursor-like player. 
You have seen players in the form of spaceships, 
aliens, or six-shooting cowboys. DIGI-DRAFT' s 
player is an X character that marks the pen's 
position. This player is independent of all other 
graphics; it is able to dance around the screen 
without erasing lines. Points will be plotted and 
lines will be drawn based on the player's position 
on the screen. 

Another special feature is a text-plotting 
routine that will draw text characters in the 
graphics window. It permits you to use all 256 
characters, including inverse video and control 
characters. If a custom character set is loaded — a 
nice way to add architectural, electronic, game- 
piece, or other special symbols — those characters 
can be used in the graphics window. Furthermore, 
you can load new character sets at any time so 
that characters from several different sets could be 
used within one design. The routine plots points 
rather than prints characters, so any of four colors 
could be used. Special effects such as 3-D 
shadowed text and color-on-color are easily 
implemented. Atari characters are the default 
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Figure 1: Sample Screen from DIGI-DRAFT 
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characters; if you want custom characters you will 
have to create them yourself with a character 
editor program. There are several excellent 
character set editors available commercially that 
will assist you in creating character data files. 

Whenever a custom character set is loaded, the 
character base shadow register at $2F4 is set to 
point to the new character set. The new characters 
would be used anywhere on the screen, including 
the text window, if it were not for a display list 
interrupt (DLI) routine added to DIGI-DRAFT. The 
DLI routine is a short machine-language routine 
that makes the computer display only Atari 
characters in the text window and adds extra color 
as a bonus. 

Just before ANTIC instructs the CTIA (or 
GTIA) chip to display the text window at the 
bottom of the screen, once every sixtieth of a 
second, the DLI routine is called up to switch to 
Atari characters and change two colors. Later, as 
the screen begins plotting anew, all the shadow 
register data for graphics window colors and the 
custom character set location are loaded into the 
appropriate registers. Thus, the computer 
continually switches between given values for the 
text window and your colors and characters in the 
graphics window. Line 9050 of listing 1 contains 
the numerical data that create this routine. In 
assembly language it looks like this: 



PHA 
TXA 
PHA 
TYA 
PHA 
LDA 
LDX 



#$E0 ;use Atari character set 
#$2C ;light yellow background (or color of 
your choice) 
LDY #$06 ;dark text color 
STA $D40A ;wait for WSYNC 
STA $D409 ;store Atari character pointer in 

CHBASE 
STX $D018 ;store background color in COLPF2 



STY $D017 ;store text color in COLPF1 

PLA 

TAY 

PLA 

TAX 

PLA 

RTI 

The DLI routine, along with the machine-language 
player movement and input/output routines, is 
located in program memory, thereby freeing page 
six for screen dumps or other machine-language 
routines. 

Your drawings can be saved by DIGI-DRAFT 
and reloaded at a later time. The screen-saving 
subroutine stores all graphics data and the colors 
from the color shadow registers into a data file. 
The routine saves data for the graphics window 
directly from screen memory, instead of retrieving 
pixel data from the screen — a rather slow 
procedure. The screen-loading subroutine does just 
the opposite. The loading subroutine, beginning at 
line 4000, could be used with other programs to 
load your picture data files to a GRAPHICS 7 
screen. Thus your screen designs could be 
incorporated in a variety of program applications. 
Just imagine an electronics program with 
schematic drawings selected by menu, or an 
adventure game with code books or detailed maps. 



Listing 1: DIGI-DRAFT Program Listing 

REN DIGI-DRAFT (C) 198Z TlH KILBY 

3 OVERSCAN-0.81REM OVERSCAN DETERMINES PERFECT CIRCLES. CHANCE TQ VALUE FROM 0, 

30 TO 2.00 FOR OVAL SHAPE. 

10 GOTO 7010 

20 REH READ JOYSTICK 

30 A-STICK<B>lB-8TRIC<0):i-PMB*Y-i:iF A-ll AND X>44 THEN X=X-1:P0KE PL.XIRETURN 

40 IF A-7 AND X<203 THEN X"XM*.POKE PL.XJRETURN 

30 IF A-13 AND Y<94 THEN 0-USR<XD ,1) : Y="Y*1 JRETURS 

40 IF A-14 AND Y>13 THEN D-USR<XU,I ) : Y-Y-l IRETURN 

70 IF A-9 AND X>44 AND Y<94 THEN X-X-1SPQKE PL,XSD=USR< XD ,1) ! Y*Y*1 IRETURN 

80 IF A-3 AND X<203 AND Y<94 THEN X-X*1.*P0KE PL,X !D»USR<XD ,1) ! Y-Y*l IRETURN 

90 IF A-10 AND X>44 AND YM3 THEN X-X-ltPOKE PL,X tD=>UER(XU ,1 ) iY-Y-1 : RETURN 

100 IF A-4 AND X<203 AND Y>13 THEN X-X*l!POKE PL.X :D-U8R<XU,I ) : Y=Y-1 

110 RETURN 

120 REN ORAHINC E NTRY PQINY 

130 G08UB JOYtIF B-0 THEN COLOR CJCOSUB 410 

133 SOUNO S. 0,0,0 

140 IF PEEK(K)ORET THEN G08U8 230 

130 IF PEEK<33279)-3 THEN 7 C«I8«:C0SUE: ZOlOiCOSUB MENU 

160 CDTO 130 

170 REN LIME COLOR CHANCE 

180 IF KEY-49 THEN C-1IC08U8 230 

190 IF KEY-30 THEN C-2:G0SU8 230 

200 IF KEY-SI THEN C»3!G0SU8 230 

210 IF KEY>32 THEN C-OiCOSUB 230 

220 RETURN 

230 FOR I"0 TO 20IPOKE 7Q4,0:PQKE 704,14!SEXT I ! POKE 704,8e:ftETURN 

240 REM READ KEYBOARD 

230 GET «4,KEY:IF KEY-78 THEN ? CftCOSUB 3010IGOSUB HENU 

260 C0SU9 1801IF KEY-48 THEN GQSUB 310 

270 IF KEY-40 THEN 9000 

280 IF KEY-47 THEN 7 C«tCD3UB 910 

290 IF KEY-84 THEN 7 C«SG0SUB 1210JPOKE 702,41!POKE 494,0 

300 IF KEY-70 THEN COSUB 810 

310 IF KEY-82 THEN GQSUB 710 

320 IF KEY-74 THEN 7 C« I COSUB 4010:COSU6 MENU 

330 IF KEY-44 THEN ? CfiGOSUB 1310 

340 IF KEY-83 THEN 7 C«tGOSUB 3010!COSUB MENU 

330 RETURN 

340 REN HEHU 

370 POKE 732,i:P0KE 82,0 

380 7 C«J"N. <«CLEAR R-RECTAHCLE D-DIAGDNAL LINE E. T=>TEXT C-CIRCLE B-BftOK 

EN LINE" 

390 7 "H F-FILL N-HEH FONY L-LOAD SCREEN U. 1 ,2 ,3,4=LINECDLQft S=SAVE SC 

REEN";tPOKE 82.2IRETURN 

400 REN DRAH 

410 X1«X-44!Y1«Y-13!PL0T XI , Yl IX2=X1 : Y2»Y1 

420 SOUNO 0,Xl*(79-Xl)«<Xl>78)»2+Tl-t'<39-Yl)»(Yl>3a)»2+20,10,4 

430 RETURN 

300 REN pIAGgNAL 

310 POKE 33279, 0IXl-X-44:Yl-Y-13:CDLOR CtORAHTO Xl.YliftETURN 

7«0 REN RECTANGLE 

710 COLOR C:X1">X-44:Y1-Y-13!DRAHT0 X2,Yi:0RAHT0 Xl.YltDRAHTO Xl,Y2:DRAHTa X2.Y2! 

PLOT xi,yi;x2-xi:y2=yi:return 

BOO REH FILL 

eio xi-x-44:yi-y-is:position xi.yiipoke 743,c:xio ib,*4,o,o, "si-jreturn 

900 REN CIRCLES 

911 F"0:? "Do you want your circla FILLED ( Y/N)?"; 1 GET #4,KEY:iF KEY=fl9 THEN F-l 

930 7 C«:D«J"Po«ition cursor at ona point on EOGE of circle op ire and pr«» FI 

RE." 

940 COSUB JOYtIF 8-1 THEN 940 

930 POKE 33279, 0IFOR 0-1 TO 30:NEXT OJXi-X-44! Yl-Y-13 

940 ? C«iD«|"Now position tha cur»or at tha CENTER of your cirel* or arc and pr« 

•» FIRE." 

?70 COSUB JOYIIF 8-1 YHEN 970 

980 POKE 33279 ( B:Cl-X-44:C2-Y-13IR-INT(SQR(AeS(Cl-Xl) A 2*AeS<C2-Yl) A Z)+0.5> !? C»; 

990 ? " - Change color by prtnini - 1 , 2 > 3. ,ior 4 " 

993 7 i? " Prtn SPACE BAR to rxifj , ,, 

-*"**"=— (continued) 
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Listing 1 (continued) 



cursor at baqi 



(A, A) )>127 THEN F-RET 



location end pr*s 



1000 FOR N*27Q TO £291 X2»C1+R«C0S(N > : Y2=C2+ft»OVEftSCAN«BIN(N) !IF PEEK(K)ORET THE 

N COSUB 1 050 

1020 IF X2<1 OR X2M59 OR Y2<1 DR Y2>7? THEN NEXT H 

1030 COLOR CIFLOT X2,Y2:iF F-l THEN DRAHTO C1,C2 

L -50 NEXT NiCOTO 10OQ 

11150 GET *1,KEY:IF KEYM8 AND KEY<33 THEN GOGUB 190 

1040 IF KEY=32 THEN C-ltPOP !C09UB MENU:RETURH 

10 70 RETURN 

1200 REM TEXT 

1210 POKE 752,0:? "Enter TEXT string you wish pr inted." : INPUT B«IIF B«»"" THEN C 

OSUB rtENUJRETURN 

1220 POKE 752,1!? Ct;0*:"Now posit: 

s FIRE button." 

1230 COSJB JQYIIF B»l THEN 1230 

1250 Xl=<X-11>:Yl»<Y-l5) 

1260 FOR A=l TO LEN<B« ) :F-0 !IF ASC 

1270 IF Xl>152 THEN X1"0 I Yl*Yl+8 

1280 IF Yl>72 THEN Y1=0 

1290 B=ASC(B«(A.A)>:GOSUB 1390 IR-PEEK ( 75A) *25A+B«8IF0R I=>0 TO 7!C0L0R C:D»ABS<PE 

EK(fi+I)-F) 

1300 IF D>127 THEN 0=0-128:PLOT X1.Y1+I 

1310 IF D>63 THEN D=0-61;PL0T X1+1.Y1+I 

1320 IF 0>3l THEM 0=D-32:PL0T X1+2.Y1+I 

1330 IF D>13 THEN O-D-UIPLOT X1+3,Y1*I 

1310 IF 0>7 THEN D-D-QIPLOT X1+1.Y1+I 

1350 IF D>3 THEN 0-0-1!PLQT X1+5.Y1+I 

1340 IF D>1 THEN O*0-2:PLOT X1+A,,Y1+I 

1370 IF O>0 THEN PLOT X1+7.Y1+I 

1380 NEXT i:Xl^Xl+8:«EXT AiGOSUB rlENUSB«-CHR«<253) SRETURN 

1390 IF B>127 THEN B-G-128 

1100 IF 6>31 AND B<?4 THEN B=B-32 :RETURN 

1110 IF B<32 THEN B-B+A1 

1120 RETURN 

1500 REM BROKEN LINES 

15111 ? " BROKEN LINES MODE"!? !? '■ - PrttS SPACE BAR to exit -"I 

1520 COLOR CIIF AOll ANO A<>7 AND Y1/1-INT < Yl/1) THEN COLOR 

1530 IF AOH AND A<>13 ANO Xl/3»lNT<Xl/5) THEN COLOR 

1510 GOSUB JQYEIF B=>0 THEN GOSUB 110 

1550 SOUHD 0,0,0,0 

1540 IF PEEK(K)ORET THEN 1580 

1570 GOTO 1520 

1580 GET M, KEYS IF KEY-32 THEN GOSUB MENUJRETURN 

1590 IF KEYMB AND KEY<53 THEN GOSUB 180 

1400 GOTO 1320 

20 REM COLOR CHANGE 

20 10 ? "Use joystick to change four colors. Preas FIRE also to chart?* intern it 

2020 ? :? " - Pres* any k«y to nit -"J 

2030 A=STICK(0>;B=STRIG<0) :IF PEEK<K)ORET THEN RETURN 

2010 POKE 70B,CO:iF A = 11 AND BOO THEN C0-C0+14:IF C0>RET THEN CO-C0-254 

2050 POKE 709.C1IIF A="7 ANO BOO THEM C1-C1+14HF C1>RET THEN Cl-Cl-254 

2860 POKE 710.C2IIF A=»13 ANO BOO THEN CZ-C2+14IIF C2>RET THEN C2-C2-254 

2070 POKE 712,C1:IF A-ll AND 8O0 THEN C1-C1+14JIF C1>RET THEN C1-C1-234 

2080 IF 8=0 ANO A-11 THEN C0-C(+Z:IF C0>RET THEN C0-CI-234 

2090 IF 0=0 AND A=7 THEN C1=C1+2:IF C1>RET THEN C1-C1-Z56 

2100 IF B=0 ANO A=>13 THEN CZ-C2+2IIF C2>RET THEN C2-C2-234 

2110 IF 8-0 AND A*ll THEN C1=C1+2:iF C1>RET THEN C1-C1-254 

2120 GOTO 2030 

3000 REH SAVE SCREEN 

3010 POKE 752,0!? "Enter filenane for dr awinq ,":INPUT F«:POKE 752,1!? C*:IF F»-" 

" THEM RETURN 

3020 TRAP 3080:POKE PL,0:CLOSE fliOPEN *1,8,0,F< 

3030 FOR 1*708 TO 712:PUT II ,PEEK <I> iNEXT I 

3010 POKE 852,PEEK(88>'.P0KE B53.PEEKI89 ) '.POKE 834>12B1P0K£ 857,12tPOKE 830,11 

3050 J=USR(ADR(CIO») ) 

3040 POKE 31284,192!? C»JO»!" Screen has been saved e*:"J? " ";F 

•;b»:fdr q=-i to sooinext d 
3070 poke pl,x!trap 130jreturn 

30B0 POKE 51204,192:? C«!D«;"Sorry ! Check connection* - try eqain. " JB»!FOR D-l T 

o ioo:next digoto 3070 

1000 REM LOAD SCREEN 

1010 POKE 752,0!? "Enter the drawing's filenane. " ! INPUT F»;POKE 732, It? C«!IF F« 

="" THEN RETURN 

1020 POKE PL.O.'TRAP 4O80!CLOSE *1I0PEN *1,1,0,F« 

1030 FOR 1=708 TO 712;GET *l,C!POKE I,C!NEXT I 

1010 PDKE B52,PEEK(88):P0KE 053 ,PEEK< 89) :POKE 834. 129!POKE 837.1ZIP0KE 830,7 

1050 J=USRtADR(ClO»)) 

1040 POKE 31204, 192IC-1 

1070 POKE PL.XJTRAP 130 !C0-PEEK(70B) !C1-PEEK(709>:CZ-PEEK (710) SC1-PEEKC71Z> SRETU 

RN 

1080 POKE 31284,192!? C* JD« rSorry \ Problems with that file. Try again. "JB 

•:FOR D=l TO 300!NEXT 0!GOTO 1070 

5000 REM LOAD CHARACTER SET 

3010 POKE 752,01? "Enter filename for your character a»t.<Pres» RETURN for ATARI 

character s , ) "", 
3020 TRAP 307O:iNPUT Ft'.POKE 73Z,1!IF F»-"" THEN 7 9»:P0KC 734,2J1:T«0:RETURN 
3030 CLOSE li:OPEN *1 , 1 ,0 ,F«!P0KE B32,0!POKE B33,CS!P0KE 836,1: POKE 837,41P0KE 8 
30,7 
5010 J=USR(AOR(CIO«)> 



, . . ."IFOR O-l TO 231 
again. "1B«1F0R 0-1 TO 



5030 POKE 754,CS!POKE 51284,192:? C« !D«f "Load conplet* 

INEXT o:t=i 

5040 TRAP 130:RETURN 

3070 PDKE 51284,192:? C« !D» ! "Problens with that file. T 

3oo:next d:goto 5040 

7000 rem title screen 

7010 graphics 17sp0ke 70b ,211 ipdsitlon 5,7!? 16 j "oigi-oraft"! position 4,11!? #6) 

" by tim kilby " 

b000 rem initialization 

b010 oim f»<15),c»<1) ,b*(19),d*(1) ,ml» (71 ) ,cio» (6 j 

bo20 for o-l to 6sread a:ci0« 10, d) -chr« ( a > :hext d 

0030 DATA 101, 142, 16, 74, B6, 228 

9 010 C0=15 0:C1=70!C2='22I!C1=H:C"1 :RET«233:T-OIK-76*:JOY»3Q}PL-532*8!HENU-370:DE 

G ITRAP 130 

8 50 B«=CHRt(253>:C«-CHR«(125)!D»»CHR»(29>:N-AOR<r5L«)IXU-N+29!XD-N+30 

B060 POKE 512,N-INT(N/256)»256!P0KE 313, INKH/236) 

8070 FOR I=>0 TO 70IREAO A1P0KE N+I.AIKEXT I 

80B0 OPEN H,1,0,"K:" 

8090 I-PEEK(106)-16!POKE 104,I!CS-I+12 

9000 GRAPHICS 7!P0KE 70B,C0tPOKE 709,C1:P0KE 710,C2tPOKE 712 ,Ci:i-PEEK<340 )+234« 

PEEK(341):P0KE 1+83,111 

9010 POKE 34284, 192 :X= 123: Y=35 ! A»PEEK( 106)-2:POKE 34Z79,A:Pne-234»AlP0KE 339,46: 

POKE 53277, 3IP0KE PL , X 

9020 IF PEEK<PMB)<>0 THEN FOR I-PHB TO PMB+IZBIPOKE I,i!NEXT I 

9030 RESTORE 9080!PDKE 701,BB!FOR I-PMB+Y TO PMB+2+YIREAO AtPOKE I, A iNEXT I 

9010 GOSUB MENUIPOKE 754, CSa (T-l >+221«(T-0 ) :GOTO 131 

9030 DATA 72,139,72, 13 2,72,149,224, 162,14, 160, 4, 111, 1», 212, 11-1,9, 212, 142, 24, 208, 

110,23,208,101,168, 101,170,101,61 

9060 DATA 101,101,133,178,101,133, 177 , 160 , 1 , 177,177 , 136, 113, 177,200 ,2B* , 192,3,21 

B,Z15,94 

9070 OATA 101,101,133,178,101,133, 177,141,1,177,177,200,113,177,136,134,192,233, 

200,213,96 

9080 OATA 20,8,20 



Listing 2: Cassette Revision to DIGI-DRAFT 



3010 ? "Are you sure? (Y/N) "JtGET *1,KEt!IF KEYOB9 THEN RETURN 

3015 ? C«fO»;"Insert a blank cassette, press RE CORD ami PLAY , then prfti RETURN . 

"!F»="c:- 

1010 ? "Ar* you sure? (Y/N) "iJGET I4,KEY!IF KEYOB9 THEH RETURN 

4015 ? C*;D»*,"Insert screen data tape, press PLAY. th»n press RETURN ." !F«»"C! " 

5010 ? "Press A for ATARI characters or H to load n»w character set. "f:CE 
T #1, KEY 

3012 IF KEY=-65 THEN ? BtlPOKE 756,221!P0KE 752, 1 :T-0 tRETURN 

5011 IF KE:Y<>78 THEN RETURN 
Ct;D«; ''Insert character data tape, press PLAY , than pries RETURN . "!8I 



:f»- 



3020 IF PEEK(KK>12 THEN 5020 
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MICRO bits 

AIM 65 Real Time Clock 

Provides hour, minute, second, day of week, day, month, 
year. Twelve- or 24-hour format. Pin-compatible with AIM 
expansion connector (also SYM, KIM). Four switch- 
selectable interrupts, Nicai battery backup. Industrial quali- 
ty board 4.5 x 6. All ICs socketed. Single 5V supply. 
Twenty-two-page manual. All software included. Bare board 
$29.00. Complete A&T $93.00, includes batteries. Add 
$4.00 shipping and handling. GA residents add 6%. 

Data Design Group 

P.O. Box 3318 

La Jolla, CA 92038 

[619^265-6940 



Lessons In Algebra 

An easy and fun way to learn the basic elements of high 
school algebra. Apple computer diskette $29. 95. 30-day 
money^back guaranteeiif not satisfied, 
/X George Earl ^ 

1302 So. General McMullen Dr. 

San Antonio, TX 78237 



Target-an AIM 65 Newsletter 

Need information for your AIM 65 computer? News, 
software, and hardware are examples of items covered in the 
newsletter. Yearly subscription rates are $7.00 in the US 
and Canada, $12.00 elsewhere. Back issues are available 
beginning with 1979 at the same per year rate. 

Target 

c/o Donald Glem 

RR#2 

Spencerville, OH 45887 



The State of the Art In 
Astro-Software 

Wide range of astrological and astronomical software of the 
highest quality. From powerful (and income-producing) 
astrological: charting service packages and printing 
interpretation packages, to super-accurate computer 
ephemerises. For all Commodore computers, Apple II Plus, 
and TRS-80. 

Matrix Software 

315 Marion Avenue 

Big Rapids, MI 49307 

jMCftcr 



It Pays to Write for MICRO 

Get paid for your ideas: write for MICRO! Thousands of people 
read MICRO every month. MICRO is sold in computer stores 
and on newsstands worldwide. Send for a copy of our Writer's 
Guide now. Our author payment rate is competitive with the 
leading magazines in the industry. 

We welcome articles on any aspect of 6502/6809/68000 
hardware and software for the Apple, Atari, CBM/PET, TRS-80 
Color Computer, VIC, OSI, 6809, or 68000. 

1983 Features: 

April — Communications 

May — Wave of New Computers 

June — Operating Systems 

July — Hardware 

August — Word Processing 

September — Education 

October — Programming Techniques 

November — Games 

December — New Microprocessors 
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When you reach 'the ' stage.' .■■wh&i^ 

sophisticated software to help you with business and other 
applications, explore the programming power and flexibility 
available to you with systems software from OSS. 

C/65 — Another Powerful First from OSS 

C/65 is the first commercially-available C compiler for both the Atari, and Apple machines which actually 
produces assembly language output. 

C/65 supports a very usable subset of the extremely powerful and popular C language. Just as C is used by the 
most sophisticated programmers from the professional and academic communities, so shall C/65 prove to be a powerful and 
much-needed tool for 6502 software developers. 

C/65 supports ENTegers and CHARacters, arrays thereof and pointers thereto. Naturally, it also features full recursion, easy 
assembler interface, ^INCLUDE, and a non-macro version of #DEFINE. AUTOmatic, global and EXTERNal variables are also 
available. When used with our MAC/65 assembler, C/65 is a powerful and flexible tool. ..$80. 00 



A Strong Software Family 

Other major systems software products from OSS include: 



BASIC A + 
MAC/ 65 
TINYC 
BUG/ 65 



the only logical upgrade to Atari BASIC with extra 
features for games and business programs.. ..$80.00 

the finest and fastest complete 6502 macro 
assembler/editor package you can buy... .$80.00 

for structured programming, an easy-to-use inter- 
preter, a learning tool.... $99. 95 

a powerful, self-relocatable debugger. FREE with 
MAC/65.... $34.95 



And More... 

OS/A + , the first and finest operating system for BOTH Atari and Apple 
computers, is NOW included FREE as a part of every OSS systems softw; 
package. OS/A+ features a keyboard-driven, easy-to-use command process< 
several simple resident commands, and logical and readable requests for even t 
most sophisticated utility commands. Versions of OS/A+ for some high 
capacity drives are available at extra cost. 

NOTE: Unless otherwise noted, all OSS products require 48K and at le< 
one disk drive. 

ASK YOUR DEALER, or call or write for our brochure. 

ATARI, APPLE II, and TINY C are trademarks of Atari, Inc., Apple Computer, Inc., a 
Tiny C Associates, respectively. MAC/65, C/65, BASIC A + , BUG/65, and OS/A + i 
trademarks of Optimized Systems Software, Inc. 
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Optimized Systems Software, Inc. 10379 Lansdale Avenue • Cupertino • California • 95014 • (408) 446-309 
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The Computer 
Revolution Reaches 
the Community 



by Emmalyn H. Bentley 



Many questions confronting the public today 
concern the computer revolution' s role in our 
daily lives. How is this revolution affecting 
business, education, communication, recreation, 
and even the drudgery of routine tasks we all must 
perform? Can the field of computer science be 
assimilated easily into our day-to-day existence if 
we are not conversant with high technology? What 
practical steps can we take to prevent a "future- 
shock" impact on our sensibilities? 

Some of these questions are being resolved at 
the newly created Microcomputer Learning Center 
in Nashua, NH. The project is a combined effort of 
the Arts and Science Center, Nashua and The 
Computer Mart of New Hampshire, Inc., and has 
education at the heart of its intent. It is a merging 
of two entirely different kinds of organizations [a 
non-profit institution and a profit-making 
business) to create a unique blend of expertise and 
resources. The result is an exciting learning center 
complete with knowledgeable educators, hardware 
and software, and an extensive library of computer 
literature. 

Presently the Learning Center has ten Apple II 
Plus computers with disk drives and video 
monitors, and three printers. A resource center has 
been established to provide the latest in 
applications software, books, and journals. Hands- 
on instruction is offered in such courses as 
Computer Literacy, VisiCalc, Word Processing, 
and BASIC, to name only a few. In-depth 
workshops cover LOGO and PILOT, computer 
graphics, specific languages, software evaluation of 
computer-assisted instruction, and administrative 
management and computing for remediation. 
Although the Center uses only Apple computers, 
this is not a factor when decisions are made about 
what courses to take. The Learning Center teaches 
applications and word processing that are 
transferable and generalized; it offers across-the- 
board learning. Knowledge is what it is all about. 

According to Stuart Carduner, NH Children's 
Museum director and member of the Learning 



Center's Task Force, the long-range goal is to have 
a central resource center that provides the 
community with access to many types of 
computers, hardware, software, and information to 
enhance the learning process, as well as the 
competency to pass on this knowledge to the 
public in an informative and educated fashion. 
The Center will go "wherever there is a need — 
the limit is only what the community wants, ' ' 
explains Mr. Carduner. Plans include adding more 
specific courses of study as the demand increases 
— advanced LOGO for teachers, supplemental 
extensions to the VisiCalc family, and Pascal. But 
the core of introductory programs will continue to 
be a very integral part of the learning system. 

Because the center is community-oriented, the 
general public is encouraged to particpate in this 
inspiring educational venture. Businesses can send 
employees to specially custom-designed training 
programs. (One Nashua school sent four 
secretaries to the center to learn word processing.) 
Teachers are encouraged to actively participate in 
such workshops as Computer Applications in the 
Classroom, Introduction to LOGO, and Computer 
Literacy for Teachers. To help the schools prepare 
for a future in which computer courses may be 
required, teachers are invited to bring their classes 
to the Learning Center for a working introduction 
to computers designed to fit any age group. 
Individuals are offered one-day sessions to help 
balance checking accounts and budgets, perform 
diet analysis, or even learn a new computer game. 
Intensive courses can help the novice grasp the 
elements of computer savvy or provide added job 
skills. 

"The Children Know the Most" 

The Center is attracting a cross-section of 
society — young and old, with little or no 
knowledge of computing. According to Gerry 
Paquin, M.Ed., Marketing Director and Education 
Consultant for The Computer Mart of NH and 
task force member of the Learning Center, of all 
the people enrolling in the classes "the children 
know the most!" They are being exposed to 
computers at school and at home, or have had 
some prior experience on the few terminals the 
NH Children's Museum (at the Arts and Science 
Center) provided before the Learning Center 
opened. The adults are the Teal novices; they are 
curious to know "How can it (the computer) help 
organize my information, whether it be at home or 
at work? How can it simplify certain things that I 
do repetitively?" There is a drive for learning, a 
gusto for "I've got to find out about this because 
it's new and it's happening and I want to be in on 
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ACORN 68868 
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APPLE II™ 
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HARDWARE 

• 68000 Microcomputer with 12 f 

• 131,072 Bytes of i 

• 32.768 Bytes of J 
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ACORN SYSTEMS INC. 

4455 TORRANCE BLVD., #108 • TORRANCE, CA 90503 
Telephone (213) 371-6307 

'Apple, Apple II and Applesoft are the trademarks of Apple Computer Co 
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Zoom HiRes Graphic Printing 
for Apple Computers 

Print front or back view of either or both screens 
Print upright, upside down, rotated left or right 
Selectable printing densities for many printers 
Easily place zoom viewport using on-screen crosshairs 
Large range of scale factors, independently selected 
Load files to either screen in just 5 keystrokes 
Type upper/lower case English or Greek text on screen 
Attach screen dump to your own programs, complete 
details 

Real Apple II DOS 3.3 format — Unprotected backup 
with COPYA 

Supports over 70 dot matrix and letter quality printers 
Supports serial, parallel, graphic, and buffer I/O cards 
Also works with the Basis and Franklin Computers 
Only $34.95 postpaid or see your dealer 
Versions without text annotation available for 
Apple II Pascal $34.95 

Apple III SOS 1.1 $44.95 
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2281 Cobble Stone Court 
^^ Dayton, Ohio 45431 
M 513/426-3579 
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I 513/426 
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Dealer Inquiries 
Invited! 
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it." Mr. Paquin claims "The hardest part about 
computers is to get people to sit down and try it 
and to deal with their preconceptions about what 
it is." Eight or nine of ten class members have 
never used a computer before. They don't know 
what a computer can do and, in most cases, are 
truly amazed. "Wow! A computer can do that?" is 
a familiar refrain. 

The task force members at the Learning Center 
are actively seeking people from a variety of 
backgrounds — the businessman, - educator, 
student, and homemaker. Recently they offered a 
course to the Nashua Women's Club. Mr. Paquin 
tells of one instance where a computer course, 
taught in a nursing home, was an incredible 
success. Courses for children are provided as an 
extension to what they have learned at school, 
filling a need to give the youngsters a place to 
further their computer education. One of the most 
popular courses that "fills like crazy" is Advanced 
BASIC for Young People. Mary Gasiorowski (task 
force member) talks about a mailing-list program 
she taught, in which one youngster wrote an 
imaginative title page that moved an envelope 
across the page to a mailbox! 

The Future is Now 

One final comment about the revolutionary 
growth of computers in the community. Three or 
four years ago the computer world was an entity of 
its own and appeared to consist of two groups: the 
ultra-serious, high-technology computerist who sat 
in his lonely corner preparing incomprehensible 
programs for inexplicable applications; and the 
computer hobbyists who gathered on Saturday 
mornings in computer shops to talk, talk, talk! 
(Mr. Paquin believes one of the positive things to 
come out of this is the willingness of customers 
and shop owners to exchange information and 
ideas — a phenomenon that does not occur in any 
other phase of business.) These preconceived 
stereotypes no longer exist. The staid programmer 
has emerged from his dark recess with a sense of 
altruistic values that he now shares with others; 
there is a comraderie,a feeling of "we're doing 
this because it's fun." Apple, for example is a 
"potential movement" with its festivals and 
clubs, and this enthusiasm is spreading. It is an 
exciting age when the most ordinary of us have an 
inclination to become computer-literate, to get on 
with the business of living in this inescapably 
technical world in a more meaningful fashion. The 
Microcomputer Learning Center in Nashua is 
helping to make this happen. By bringing the 
micro to the general public, people are able to get 
in touch with one another in the computer 
environment in a very human kind of way. 
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BUSICALC 



BOSICALC A Honey of an Electronic Spreadsheet 

Why electronic spreadsheet programs? 

Electronic spreadsheet programs allow the user to create a gridsheet, 
spreadsheet, worksheet, or any other table of information, using the 
memory of the computer as pencil and paper. The computer display or 
terminal acts as a window through which the user views the information 
as it is entered. Textual information (such as headings), numerical values, 
and formulas can easily be entered into the spreadsheet. 
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For Commodore 64 

For Commodore VIC 20 

For Commodore PET/CBM 40 columns 

For Commodore CBM 80 column/SuperPet 



BUSICALC Your Computer Drone for Repetitive Calculations 

The outstanding advantage of using a computer is that it acts not only 
as a pencil and paper but as a perfect eraser and an automatic calculator. 
The user can quickly and easily make any number of alterations to the 
data within the table. The BUSICALC will evaluate any formula using the 
data that has been entered. Further, it retains the formulas and displays 
the resulting value. With BUSICALC controlling the entry of data, provid- 
ing a comprehensive memory, and performing arithmetic, the preparation 
of a spreadsheet is faster and more accurate than if it were prepared 
by hand. 

BUSICALC With the Sting Removed from the Prices 

BUSICALC 20 only $49.00 for the VIC 20 

BUSICALC64 only $69.00 for the CBM 64 

BUSICALC 40 only $79.00 for the original 40 column PET/CBM 

BUSICALC 80 only $89.00 for the original 80 column CBMs and SuperPets 




BCJSICALC AVAILABLE NOW FROM YOCJR LOCAL DEALER 

(800) 227-9998 
FOR THE NAME OF YOCJR NEAREST DEALER 

California, Canada, Alaska and Hawaii please call (415) 965-1735 




| 



Skyles Electric Works 

231G South Whisman Road 
Mountain View, CA 94041 



Europe please contact Supersoft, Winchester House, Canning Road, Harrow Wealdstone, Middlesex, England HA3 7SJ, Tel. 01 861 1166 
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We have been upgrading our board level products — 
If you are expanding your existing AIM, SYM or KIM computer, 
or building a system from the ground up, 
check out these updated boards — 
DRAM PLUS now 16/32/64/80/128 K bytes 
plus up to 8K static RAM or 
EPROM Programmer, VIA's... 
VIDEO PLUS/MICRO Plus has been refined... 
FLEXI PLUS has gone to 64K dynamic RAM, 
DMA for the Floppy and IEEE 488, 2 MHz... 







We have developed a complete Typesetting 
System which expands the capabilities of an 
EditWriter to accept data from the phone 
lines, produce plain paper proofing copy, use 
improved word processing techniques, 
plus run a variety of printing/publishing 
oriented packages. 

We have given "SERVICE CALL" a new meaning. 
Using our Master/Slave programs, 
a system can be examined, tested and 
often fixed via the telephone!!! Blown 
data disks, strange malfunctions, and 
other 'quirks' can be cured immediately — 
over the telephone. Software updates can 
also be sent directly to your system 



YES — we have been very busy. In addition to 
our development work in both hardware and 
software, we have been providing board level 
products to a variety of OEMs and end users.* 
We don't have time right now to tell you about 
all of the things we can provide, but, write or 
give us a call and we'll make time!!! 

Call us at 617/256-3649 or call our FOCUS 
System at 617/250-1460 (300 BAUD) 



•Significant OEM Discounts Start At Only Five (5) Units. 
FOCUS, DRAM PLUS, VIDEO PLUS, MICRO Plus, FLEXI 
PLUS, and TypePlus Trademark TCI 
Dynacalc TM Computer Systems Center 
VisaCalc TM VisaCorp 
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We have been expanding the 
capabilities of the FOCUS™ System— 
and have added a lot of software: 
TypePlus — a complete word processing 

system 
SpellingPlus — interactive spelling checker 
Dynacalc™ — the latest in VisaCalc™ type 

Spread Sheets 
Accounts Receivable/Accounts Payable and 

other business packages 
Mailing List with Form Letters and more... 
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Company 
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.State. 



-Zip 



M/WTHKEST IS:. 



THECOMPUTERIST 

34 Chelmsford St., Chelmsford, MA 01824 
617-256-3649 
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BANNER: A Display 
Program for the 
Color Computer 



by Bryan Christiansen 



If you have ever wanted to see your name in 
lights, I Have just the program for you. The 
routine is written for the TRS-80 Color Computer 
and displays large-size messages on the CRT 
screen. In addition, I have included some powerful 
machine-language loading techniques that provide 
efficient and safe handling of machine-language 
subroutines. 

My program lets you input any message with 
capital letters and punctuation. You can vary the 
height, width, and speed of the display. The 
program prints the large letters and the 
background on the video monitor with any 
character the computer can generate in the 
alphanumeric mode. The message scrolls from left 
to right, just like on Wall Street! 

The program is smooth and versatile because 
machine-language subroutines do a lot of the 
work. One routine fills the screen with any 
character; another routine does the printing and 
scrolling. 

Here is a brief explanation of how my program 
works. First, all the character definitions are in 
the form of string arrays. From those strings in 
BASIC, the program makes a table in memory, 
which the machine-language subroutine reads. 
There is also an array that contains the 
information required to construct each letter. The 
BASIC program points to the memory location of 
strings to be printed, and the machine-language 
subroutine takes care of the rest. The BASIC 
program also controls the speed, the size, and the 
colors of the letters. 

This article includes information on how you 
can combine the BASIC code with the machine- 
language routines. You can use this method with 
your own programs. First, the theory is to take a 
BASIC program and tack a machine-language 



program to the end of it. BASIC has two memory 
locations that hold the address of the end of a 
BASIC program in memory. That address is used 
for saving BASIC programs to tape. Also, when 
you edit anything in BASIC, the address is used to 
find out how much memory has to be moved. 
Since BASIC does not use the address for listing or 
running a program, you do not have to worry 
about your machine-language program interf erring 
with your BASIC program. While it is reading- a 
program, BASIC looks for three zeros to determine 
the end of program. All you have to do is find out 
the address of the end of your BASIC program and 
add the length of your machine-language program 
to it. Then change the end-of -program memory 
location to the number you calculated. 

Finally, store your machine-language program 
in memory and you have combined the two 
programs. The machine-language program moves 
up and down in memory with your BASIC 
program so you do not have to worry about 
changing your BASIC program. Also, since there is 
no need to reserve memory for machine-language 
routines, you are using the memory in your 
computer economically. Accidentally clearing 
string space will not destroy the machine-language 
routines. 

There are some limitations to the technique: 
the machine-language routine has to be position- 
independent, and since the routine moves every 
time you change your BASIC program, you may 
have trouble finding your machine-language 
program. BASIC can find it easily just by PEEKing 
the address those two memory locations hold. 
Since your machine-language program does not 
change its length, BASIC only has to subtract to 
find the beginning of your machine-language 
program. You do it like this: enter 

PRINT PEEK (27)*256 + PEEK(28) 

Copy down the address the computer gives, add 
the length of your machine-language subroutine to 
the number you have on paper, then POKE the 
new number back into those memory locations. 
Since the number will be different for different 
programs, I have put a # sign where you are to 
insert the number you calculated. Enter 

POKE 27,INT(#/256) : POKE 28, # - INT(#/256)*256 

Take the first number you wrote down and add 
one to it. You can start POKEing in your machine- 
language program at that memory location. Now 
save your BASIC program. The next time you 
CLOAD, it will load in your BASIC program and 
your machine-language program at the same time. 
To find the beginning of your machine-language 
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program simply add a line like this to your BASIC 
program (put the length of your machine-language 
program where I have a # sign): 

A = PEEK (27)*256 + PEEK (28) - # 

To combine the machine language with the 
BASIC in my program start by entering this line: 

30 EN = PEEK(27)*256 + PEEK (28) -972 

Then enter 

PRINT PEEK (27)*256 + PEEK (28) 

Write down the number and add 972 (routine 
length) to the number. Put that number where I 
have a § sign and enter 

POKE 27,INT(#/256) : POKE 28, # - INT(#/256)*256 

Run the program. When it starts scrolling, 
press the BREAK key and delete lines 34 to 90. 
Finally, enter 

1290 GOTO 1430 

Now the program is finished. You can save a 
copy and when you load it in the next time it will 
load in the machine language also. Since the 
program gets rid of the wait at the beginning, the 

+••••••••••••••••••••••••* 
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program starts scrolling immediately and takes 
less memory. 

Here is a simple outline of the program. 

10-30 SET UP 

40-100 M.L LOADER 

110-1270 STRING PATTERNS 
1280-1290 MORE SET UP 
1300-1420 CHARACTER SET LOADER 
1430-1570 MAIN LOOP 
1580-1670 MENU 

1680-2020 ROUTINES FOR CHANGING 
PARAMETERS 

You can change the starting message by 
changing line 30. To change the startup 
parameters change line 1280. All the REM 
statements are between the ten intervals so you dc 
not have to type them. I suggest you save the 
program to tape before running it because a 
mistake might destroy the program. When you 
have finished and you want to be sure all the 
letters are right, enter nothing for a message. The 
program will print the entire ASCII character set. 

Bryan Christiansen is a 1 5-year-old freshman in high 
school. You may contact him at 314 N. 25th Ave., 
Fargo, ND 58102. 

Machine Language Listing 



3C35 86 
3C37 C6 
3C39 8E 

3C3C A7 
3C3E 3A 
3C3F 8C 
3C42 2D 

JCAA 8E 
3C47 A6 
3C49 A7 
304B 8C 
3&4E 2D 

3C50 8E 
3C53 FE 

3C56 A6 
3C58 A7 
3C5A 3A 
3C5B 8C 
3C5E 2D 

3C60 39 

3C61 86 
3C63 8E 
3C66 A7 
3C68 8C 
3C6B 2D 

3C6D 39 



80 
IF 
SK00 

80 

0600 
F5 

0400 

01 

80 

0600 

F7 

041F 
3C33 

C0 



0600 
F6 



0400 
80 

0600 
F9 



LNLNTH 
COLOR 
SCRSTR 
SCREND 

STRING 

START1 

L00P1 



EQU 
EQU 
EQU 
EQU 
ORG 
EQU 



$1F Screen line length 
Background color 
Scrn mem start address 
Scrn mem end+$200 

Addr for param passing 

Get backgroung color 
Get screen line 
Get screen add 



$400 

SCRSTR+$200 

J3C35 

*-$2 
Initialize 
IDA #C0LOR 
LDB #LNLNTH ' 
LDX ISCRSTR 
Clear left hand edge 



,X+ 



STA 

ABX 

CMPX ISCREND 

BLT L00P1 

Move screen back 



LOOP2 



L00P3 



Clear one loc. on left ed 

Line increment X 

Done? 

No, continue 
address 

Get screen add 

Load char and 

Move it back one 

Done? 

No, continue 
Print right hand edge 
LDX #SCRSTR+$1F Get upper right corner 

Get addr of string to be 

printed 

Load char and 

Print it 

Increment X to next line 

Done? 

No, continue 



LDX 

IDA 

STA 

CMPX 

BLT 



LDU 



#SCRSTR 
1,X 

,x+ 

#SCREND , 
L00P2 



STRING 



,U+ 
,X+ 



IDA 

STA 

ABX 

CMPX 

BLT 

End 

RTS 

Clear entire screen 



iPSCREND 
L00P3 



START2 



L00P4 



IDA 

LDX 

STA 

CMPX 

BLT 

END 

RTS 



(CLS) 

#C0L0R Get background color 
0SCRSTR Get screen add 
,X+ Clear one location 
0SCREND Done? 
LCOP4 No, continue 



+ ••••••••••••••••••••••••** 
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BASIC Listing 



1REM- 
2 REM- 
3REM- 
U REM- 
5 REM- 



-BRYAN CHRISTIANS! 

-314 N. 25 AVE. — 

-FAROO, ND 58102 

-COPYWRITE 11/11/82 

10 CLS0:PRINTg2+32-»7, "banner by bryan Christiansen" 
: POKE1024+8+32*7, 32 : POKE 1024 
+11+32*7,32 :POKE1024+17+32*7, 32 
20 CLEAR256:STUFF?= "BANNER BY BRYAN CHRISTIANSEN! ! 

PRESS THE SPACE BAR TO ENTER PROGRAM! ! " 
30 EN=154ll 
34 REM MACHINE LANGUAGE 



-SCROLLER- 



35 REM- 

40 FORA=0TO44 : READB : POKE EN+2+A , B : NEXTA 

50 DATA134, 128, 198, 31, 142, 4, 0,167, 128, 58, 

140,6,32,37,248 
60 DATA142, 4, 0,166, 136, 1,167, 128, 140,6, 

0,45,246 
70 DATA142, 4, 31, 254, 60, 50, 166, 192, 167, 

128,58,140,6,0,45,246,57 
74 REM CLEAR SCREEN WITH 



-CHR$- 



75 REM- 

80 FORA=0TO12 : READB : POKE EN+47+A , B : NEXT 
90 DATA134, 128, 142,4,0, 167, 128, 140, 6, 0,37, 249, 57 
100 POKE EN+34,INT(EN/256) :POKE EN+35, EN- 
INT ( EN /256) *256 : DEFUSR0=EN+2 : DEFUSRl=EN+47 

105 REM LETER PARTS 

110 DIMA$(57),B$(59) 
120A?(1)=" 



130A$(2) = 
140A?(3) = 
150 A?(4)=' 
160 A»(5)=' 
170A$(6) = ' 
180AJ(7)=' 
190 A$(8)= 
200A$(9) = 
210AJ(10)="g gg 
220A$(ll) = "g gg 
230 A? (12)=" ggggg 
240A$(13)«" gg g 1 
250A$(l4} = " ggg' 
260A$(15) 
270 A$(16) 
280 A$(17) 
290 A? (18) 
300 A$(19) 
310A$(20) = "gg g " 
320A$(21) = "g 
330A$(22) = "g 
340 A$(23)=" ggg " 
350A$(24)="g g" 
360A$(25) = "g g" 
370 A$(26)=" g " 
380A$(27)»" ggg " 



ggggg g" 

gg " 
gg " 

ggggggg" 
gg g " 

g g g" 
g gg" 
gg g" 



"g gg » 
" g" 

" e g g" 
"g gg g" 
"g ggg" 



gg » 

ggg" 

g" 

g " 



g 



gg" 
eg" 



390A$(28) = " 
400 A$(29)=" 
410 A$(30) = " 
420A?(3D = " 
430A$(32) = " 
440A$(33) = " g 
450A?(34)="g 
460A$(35)="g 
470A$(36)="gggg" 
480AJ(37) = " gg " 
490A$(38)=" g g " 
500A$(39) = "g g " 
510A$(40) = "gggg g" 
520 A$(4l)=»gg " 
530A$(42) = "gg gg" 
540A?(43)="gg gg " 
550A$(44) = »gg ggg" 
560A$(45)="g g " 
570A?(46) = " gg " 
580A$(47)="gg gg" 
590 AJ(48)=" ggg g" 
600A$(49)=" gggg" 
610A?(50)=" ggg" 
620AJ(51) = "gggggg " 
630A?(52)=" gg " 
640AJ(53) = " gg" 
650 A$(54)="g g " 
660A$(55)=" ggggg" 



BASIC Listing (continued) 

670A?(56)="gg g" 
6S0A$(57) = "g g g" 
685 REM LETTER COMBINATIONS- 



690BJ(l); 
700B$(2); 
710B$(3); 
720B$(4) : 
730B$(5); 
740B$(6): 
750B$(7); 



"1 1111111" 

"1 2 " 

"13 13 " 

"14 4 5 4 544" 

"16 7 7 5 7 7 8" 

"1 9 101112131415" 

"1 1617187 192017" 



760 B?(8) = "12122" 
770 B?(9)="l 232425" 
780 B$(10)="l 252423" 
790 B$(ll)="l 2627235 232726" 
800 B$(12) = "l 2626265 262626" 
810 B$(13)="l 2829" 
820 B$(14) = "l 26262626262626" 
830 B$(15)="l 2828" 
840 B|(l6)="l 30163126322221" 
850 B$(l7)="l 12252525252512" 
860B$(18)="1335 30" 
870 B$(19)="l 3334357 7 7 9" 
880 B?(20)="l 24257 7 7 7 36" 
890 B$(21)="l 31374 38395 31" 
900 B$(22)="l 407 7 7 7 7 15" 
910B?(23) = "1 127 7 777 8" 
920 B$(24) = "l 21213411413 " 
930B$(25) = "1367 7 7 77 36" 
940 B$(26)="l 677 777 12" 
950 B$(27) = "l 4242" 
960B$(28) = "1 4344" 
970B$(29)="1 264 2425" 
980B$(30)="l4444444 " 
990 B?(31)="l 25244 26" 
1000 B$(32) = "l 22212119454546" 
1010 B$(33)="l 12257 47473548" 
1020 BJ(34) = "1 494 3839384 49" 
1030 B$(35)="l 5 7 7 7 7 7 36" 
1040 B$(36) = "l 12252525252524" 
1050 B?(37) = "l 5 252525252512" 
1060 B$(38)="l 5 7 7 7 7 2525" 
1070 B$(39)="l 5 454545452121" 
1080 B$(40)="l 12252525257 50" 
1090 B$(4l)=»l 5 26262626265 " 
1100B$(42)="1 255 25" 
1110 B$(43) = "l 16303030303051" 
1120 B$(44)="l 5 3131264 2425" 
1130 B$(45)="l 5 303030303030" 
1140 B$(46)="l 5 3 5231523 5" 
1150 B$(47)="l 5 3 322631535 " 
1160 B$(48) = "l 5 25252525255 " 
1170 B$(49)-"l 5 454545454546" 
1180 B$(50)="l 12252525355455" 
1190 B$(51)="l 5 45454511109 " 
1200 B$(52)="l 467 7 7 7 7 28" 
1210 B$(53) = "l 2121215 212121" 
1220 B?(54) = "l 51303030303051" 
1230 B$(55)="l 3 52283028523 " 
1240 B$(56)="l 5 53373237535 " 
1250 B$(57) = "l 25244 264 2425" 
1260 BJ(58)="1 3 32262926323 " 
1270 BJ(59)="1 2534357 575625" 
1280 KOLOR»201:BACK=169:SPEED=20: 

WIDTH=1 : HEIGHT=1 : E=4: F=5 
1290 GOSUB1300:GOTO1430 
1295 REM LOAD LETTER SET 

1300 CLS0:PRINTg4,"wait for a count of 57"; 

1301 POKE1024+8 , 32 : POKE1024+12 , 32 :POKE1024+l4, 32 

1302 POKE1024+20 , 32 : POKE1024+23 , 32 : POKE1024+24 , 32 

1303 POKE1024+25,55:PRINTg32:C=EN+60 
1310 FOR A=l TO 57 

1320 PRINT A; 

1330 FORD=lTOE:POKEC,BACK:C=C+l:NEXTD 

1340 FOR B=l TO 7 

1350 C$=MID$(A$(A),B,1) 

1360 IF C$="g" THEN CHR=KOLOR ELSE CHR=BACK 

1370 FORG=lTOHEIGHT 

1380 POKEC,CHR:C=C+l 

1390 NEXTG 

1400 NEXT B 

1410 FORD=lTOF:POKEC,BACK:C=C+l:NEXTD 

1420 NEXT A:RETURN 

1425 REM MAIN LOOP 

1430 POKE EN+3,PEEK(EN+60) :POKE EN+48,PEEK(EN+60) 
:X=USR1(0) 



BASIC Listing (continued) 

1440 IF STUFF$=""THENSTUFF$="!"+CHR$(34)+"#W&' ()*+,■ 
/0123456789 : ; < = > ?gABCDEFGHI JKLMNOPQRSTUVWXYZ " 

1450 FOR A=l TO LEN(STUFF?) 

1460 WORK?=MID?(STUFF$,A,l) 

1470 B=ASC(UORK$)-31 

1480 IF B<10RB>59THENB=1 

1490 FOR C=l TO LEN(B$(B)) STEP 2 

1500 D=VAL(MID$(B$(B) , C,2) ) 

1510 D=EN+44+l6*D 

1520 POKE EN,INT(D/256) :POKE EN+l,D-INT(D/256)*256 

1530 FOR E=l TO WIDTH:X=USR0(0) :NEXT E 

1540 FOR F=l TO SPEED: IFINKEY?=" "THEN 
PLAY"V3101T255AA" : GOTO1580ELSE NEXTF 

1550 NEXT C 

1560 NEXT A 

1570 GOTO 1450 

1575 REM MENUE 



1600 PRINT" 
1610 PRINT" 
1620 PRINT" 
1630 PRINT" 



1580 CLSl:PRINTg0," MENUE" :PRINT:PRINT 

1590 PRINT" #1 -CHANGE COLOR OR HEIGHT"; 

#2 -CHANGE WIDTH" 

#3 -CHANGE SPEED" 

#4 -CHANGE MESSAGE" 

#5 -RUN MESSAGE 
16'40PRINT:PRINT:PRINT" INPUT A NUMBER 

AND PRESS < enter >" 
1650 PRINT :INPUT"UHICH NUMBER???";D 
1660 IFD<10RD>5 THEN1580 
1670 ON D GOTO1680 , 1910 , 1950 , 1990 , 1430 

1675 REM COLOR AND HEIGHT — 

1680 CLS: PRINT" COLOR AND HEIGHT" 

1690 PRINT:PRINT" IF YOU KNOW THE NUMBERS YOU 
WANT PRESS <N> < ENTER > ELSE PRESS 
<YXENTER> FOR HELP." 
1700 INPUT"DO YOU NEED HELP?";D? 
1710 IF D$ <> "Y"THEN1820 
1720 I=0:CLS:FORH=0TO255 
1730 POKE15l4,H 

1740 PRINTg491, " "H; 

1750 PRINTg511, " " 

1760 I=I+1:IFI>6THEN1800 

1770 NEXTH 

1780 PRINTg451, "PRESS ANYTHING TO CONTINUE"; 

1790 IF INKEY$=""THEN1790ELSE1680 

1800 PRINTg451, "PRESS ANYTHING TO CONTINUE"; 

1810 I=0:IF INKEY$=""THEN1810:ELSE1770 

1820 CLS : PRINT" COLOR AND HEIGHT" 

1830 PRINT.-PRINT" INPUT A NUMBER FOR THE" 

1831 PRINT" LETTERS AND INPUT A NUMBER FOR" 

1832 PRINT"THE NUMBERS. THE NUMBERS MUST" 

1833 PRINT"BE BETWEEN AND 255- INPUT THE" 

1834 PRINT'NUMBERS LIKE THIS" 

1835 PRINT" < LETTERS, BACKGROUND > <ENTER> ." 
1840 PRINT : INPUT "NUMBERS? " ; KOLOR, BACK 

1850 IF KOLOR<0 OR BACK<0 OR KOLOR>255 OR 

BACK > 255 THEN PRINTg352 , " NUMBERS 

MUST BE BETWEEN AND 255": 

FORA=0TO1000 : NEXT : GOTO 1820 
1860 CLS :PRINT" COLOR AND HEIGHT" :PRINT 

: PRINT" DO YOU WANT SINGLE OR 

DOUBLE HEIGHT? INPUT A <1> OR A <2>." 
1870 PRINT:INPUT"NUMBER?";HEIGHT 
1880 IF HEIGHT <1 OR HEIGHT > 2 THEN PRINTg320, 

" NUMBER MUST BE BE 1 OR 2" : FOR A> 

0TO1000:NEXT:GOTO1860 
1890 IF HEIGHT=1THENE.4:F=5:ELSEE=1:F=1 
1900 GOSUB1300:GOTO1580 

1905 REM WIDTH 

1910 CLS: PRINT" WIDTH" 

1920 PRINT : PRINT" INPUT A NUMBER FOR THE 

WIDTH. SUCH AS < NUMBER X ENTER >."; 
1930 PRINT:INPUT"NUMBER?";WIDTH 
1940 GOTO1580 

1945 REM SPEED 

1950 CLS: PRINT" SPEED" 

1960 PRINT: PRINT" INPUT NEW SPEED . THE 

HIGHER THE NUMBER THE SLOWER 

THE SPEED." 
1970 PRINT : INPUT"NUMBER? " ; SPEED 
1980 GOTO1580 

1985 REM CHANGE MESSAGE 

1990 CLS: PRINT" CHANGE MESSAGE" 

2000 PRINT : PRINT" INPUT YOUR NEW MES 

SAGE. SUCH AS < MESSAGE ><ENTER> ." 

2010 PRINTLINE INPUT'YOUR MESSAGE "; STUFF! 

2020 GOTO1580 
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64K Ram 

780 KB Disk Storage 

Word Processing, Ultracalc CP/M ' 

C-Basic Software 

Smith Corona TP 1 

Letter Quality Printer 

SS995.00 

EAGLE 1600 CALL 



TeltVideo 




TERMINALS 

910 $579.00 

91 2C $69900 

920C $749.00 

925C $749.00 

950 $950.00 

WYSEWY100 $749 00 

COMPUTERS 
800A . $1299 00 

802 S264900 

802H $469500 

806 $499900 

816 $8999 00 

303 CALL 

1602.1603 O'.L 



£* commodore 

8032 $1039.00 

4032 $749.00 

8096 Upgrade Kit $369.00 

Super Pel $1499.00 

2031 $469.00 

82 SO DbLSided Disk Drive . . . $ 1 699.00 
D9060 5 Meg. Hard Dish ... $2399.00 
D9060 7.5 Meg. Hard Disk . . . $2699,00 

8050 $1299.00 

4040 $969.00 

8300 (Letter Quality) 11 549.00 

8023 $599.00 

4022 $399.00 

NewZ-Ram.AddsCP/M«64K. . $549.00 

The Manager $209.00 

Magis ' CALL 

Word Pro 5 Plus $31 9.00 

Word Pro 4 Plus $299.00 

Word Pro 3 Plus $199.00 

The Administrator $379.00 

Info Pro Plus $219.00 

Power $79.00 



Ct commodore 



VIC 20 
$149 



VIC 20 Dust Cover 

VIC 1530 Datassette 

VIC 1 54 1 (64K Disk Drivel . 
VIC 1525 Graphic Printer . 
VIC 1210 3K Mem. Exp .... 
VIC 1 110 8K Mem. Exp 

VIC 1111 16K Mem. Exp 

VIC 101 1 P.S232C Term. Interface 
VIC 11l2IEEE-488lnterface. 
VIC 1211 Super Expander . 
VIC Mother Board 



$999 

. $69.00 

$339.00 

$33900 

$32 00 

$53.00 

$9400 

$43.00 

$86.00 

$5300 

$99.00 



NEC 



COMPUTERS 

8001A $719.00 

8031 $71900 

8012 $549 00 

PRINTERS 

8023 $469 00 

7710/7730 $239900 

3510/3530 SI 599 00 

MONITORS 

JB-l?60 St 19 00 

JB-1201 S14900 

JC-1212 S299 00 

JC-1203 5629 00 



TIM EX SINCLAIR 
1000 




PC-1500 

POCKET 

COMPUTER 



fz commodore 



16K Memory Module $44.95 

Vu-Calc $17 95 

Check Book Manager $13 95 

The Organizer $14.95 

The Budgeler $13 95 

Slock Option $14.95 

Loan & Mortgage Amortizer $12.95 
Mindware Printer $109.00 



$169 



DooannoaoG 
a a DBOano ■ 
aooBaao*. 




CE 1 5C Printer. Plotter and 

Cassette Interlace Unit. . $172.00 

CE 1 52 Cassette Recorder $62 00 

CE 155 8K Ham 

Expansion Module $94.00 

CE125Pnnter/MicroCassette ...$129.00 



VIC 64 

$429. 

PROFESSIONAL. SOFTWARE 

Word Processing for VIC 64 ... $79.95 



MONITORS 





AMOEK 




100 B S W 




$7495 


300G 




$169.00 


300A 




$179.00 


Color 1 




$339.00 


Color II 




$699.00 


Color II A 




$799.00 


Color III 




$399 00 


Color IV 


BMC 


CALL 


12" Green 




$79 99 


13 Color 


1401 (Mid Res.) 


$369 00 


9191U 13 


TAXAN 


$329.00 


RGB 1 


ZENITH 


$329 00 


ZVM 121 


SHARP 


$99.00 


Sharp 13" 


Color TV 


$275.00 


PANASONIC 




TR-1 20MIPlHigh Res Green) 


$ 1 59.00 


CT- 1 60 Dual Mode Color 


$29900 



1 



PRINTERS 

SMITH CORONA 

TP 1 $599.00 

C. ITOH (TEC) 

Starwriter|F10-40CPS) $1399.00 

Pnntmaster(F10-55CPS) $1749.00 

Prownter 80 Col (Parallel) . $499.00 

Prowriter 80 Col.(Serial) $629.00 

Prowriter 2 (132 Col.) $799 00 

OKI DATA 

82A $429.00 

83A $659.00 

84 (Parallel) $ 1 049.00 

84 (Serial) $1149.00 

IDS 

MicroPrism $649.00 

1 32 (Fully Configured) $1 599.00 

80 (Fully Configured) $1 399.00 

Call for other configurations. 

STAR 

Gemini 10 $379.00 

Gemini 15 $489.00 

OAISYWRITEH 

Letter Quality 1 049.00 

DIABLO 

620 $999.00 

630 $1769.00 



MODEMS 




HAYES 




Smart 


$229.00 


Smart 1200(1200 Baud) 


3549.00 


Chronograph 


$ 1 99.00 


Micromodem 100 


$309.00 


Micromodem II 


$279.00 




Micromodem II (with Terms) . $299.00 

NOVATION 

Cat $144.00 

D-Cat $159.00 

21 2 Auto Cat $589.00 

Apple Cat II $279.00 

21 2 Apple Cat II $609.00 

J-Cat $119.00 

Cat 103 $199.00 

Cat 1 03/2 1 2 $439.00 

ANCHOR 

Mark I (RS-232) $79.00 

Mark II (Atari) $79.00 

Mark III (TI-99) $1 09.00 

Mark IV (CBM/PET) $1 25.00 

Mark V (OSBORNE) $95.00 

Mark VI (IBM-PC) $1 79.00 

Mark VII (Auto Answer Call) ... $1 1 9.00 

TRS -80 Color Computer $99.00 

9 Volt Power Supply $9.00 

il order ea 



NEC 
3S50 PRINTER. . . S2Q9S 

PERCOM ORIVES 

5V. 1 1 60K Disk Drive $249.00 

5V." 320K Disk Drive $299.00 

AMOEK 

31 0A Amber Monitor $1 7900 

310G $1 79.00 

Amdisk <3'/. ' Drive) $72900 

DXY Plotter $759.00 

Color II $69900 

SOFTWARE 

I U.S. Easywriter II $249.00 

I.U.S. Easyspeller $ 1 2900 

Peach Package (GL/AP/AR). $419.00 

PROFESSIONAL 
SOFTWARE 

IBM/PC Word Processing $319 00 

MICRO PRO 

Word Star/Mail Merge $399.00 



computer ma 



IN PA. CALL (717)327-9575, 477 E.THIRD ST., WILLIAM SPORT, PA. 17701 

In stock items shipped same day you call. No risk, no deposit on COD orders. Pre-paid orders receive free shipping within the Continental United States with no waiting period for certified 
checks or money orders. Add 3% (minimum $300) shipping and handling on all CO.D. and Credit Card orders. NV. and PA. residents add sales tax. All items subiect to availability and price 
change, note: We stock manufacturer's and third party software for most all computers on the market. Call today for our new catalogue. Circle No. 4 



F 



FRANKLIN 




ACE 1000 

ACE 10 with Controller Card 
ACE Writer Word Processor 

CALL... 
FOR SYSTEM PRICE! 

Ace 1000 CALL 



SYSCOM II 

4SK Color, Computer 

100% Apple Compatible 
Apple Soft Basic 

$769.00 



VI8ICOPP 

for Apple, IBM & Franklin 

Visidex $ 1 89.00 

Visilile $189.00 

Visiplot $15900 

Visiterm $89.00 

Visitrend/Plol $229.00 

VisiSchedule $229.00 

Desktop Plan $ 1 89.00 

Visicalc(Applell*.Atan,CBM,IBM). . $1 79.00 
Visicorp prices lor IBM may vary slightly. 

CONTINENTAL 

Home Accnt. (Apple/Franklin) $59.00 

Home Accountant (IBM) $1 19.00 

1 st Class Mail (Apple/Franklin) . $59.00 

BIRIUB 

Free Fall $24.00 

Beer Run $24.00 

Snake Byte $24.00 

Space Eggs $24.00 

Sneakers $24.00 

Bandits $28.00 

BROOERBOUNO 

Apple Panic $2300 

David's Magic $27.00 

Star Blazer $25.00 

Arcade Machine $34.00 

Choplitter $27.00 

Serpentine $27.00 

INFOCOM 

Deadline $3500 

Star Cross $29.00 

Zork I $29.00 

Zork II or III $29.00 

MPC 

Bubdisk 1 1 28K Ram) $7 1 9.00 

AXLON 

Apple/Franklin 1 28K Ram $399.00 

Apple/Franklin Ram Disk $999.00 

VU-MAX 

80 Column Card $159.00 




DISK DRIVES 


FOR ATARI 


AT 88-S1 


$399 00 j 


AT 88-A1 


$289 00 


RFD40-S1 


$539.00 j 


RFD40-A1 


$329 00 


RFD40S2 


$869 00 


RFD44SI 


$659 00 


RFD44S2 


$999 00 



u-sa 




MICRO-SCI 

DISK DRIVES FOR 
APPLE & FRANKLIN 

A2 $299.00 

A40 $349,00 

A70 $459.00 

C2 Controller $79.00 

C47 Controller $89.00 



FLOPPY DISKS 

MAXELL 

MD I (Box of 1 0) $32.00 

MD II (Box of 1 0) $44.00 

FD 1(8") $40.00 

FD II (8" DO] $50.00 

VERBATUM 

5V."SS DO $26.00 

5V." DS DO $36.00 

ELEPHANT 

5'/4"SS SD $19.99 



HEWLETT 
PACKARD 



B3-" 



cv 




HP41C $149.00 

HP 10C $59.00 

HP 11C $72.00 

HP 12C $99.00 

HP 15C $99.00 

HP 16C $99.00 

HPIL PERIPHERALS In Stock 
Call for 

CALCULATOR 
SPECIALS 



Ml HOMECOMPUTE 

ATARI" 



RANA DISK DRIVES 

Call for price and availability on the 
new Rana Disk Drives for The Apple 
and Franklin Computer Systems. 





400 

1SK $199 

3SK $274* 

48K S35S* 

•Non-Atari Ram 

410 Recorder $74.00 

810 Disk Drive $429.00 

822 Printer $269 00 

825 Printer $589.00 

830 Modem $ 1 5900 

820 Printer $259.00 

850 Interface $169 00 

CX40 Joy Sticks (pair) $18.00 

CX853 Atari 16K Ram $77 95 



800 



48K $499 

Call for Price and 
Availability of the NEW 

64K ATARI 1 200 



Axlon 32K Ram 


$89 00 


Axlon 48K Ram 


$139 00 


Axlon 128K Ram 


$39900 


Intec 48K Board 


$159.00 


Intec 32K Board 


$74 00 



SOFTWARE 
ATARI 

Pac-Man $33.00 

Centipede $33.00 

Caverns of Mars $32.00 

Asteroids $29.00 

Missile Command $29.00 

Star Raiders $35.00 

Galaxian $33 00 

Defender $33.00 

ON-LINE 

Jawbreaker $27.00 

Softporn $27.00 

Wizard and the Princess $29.00 

The Next Step $34.00 

Mission Asteroid $22.00 

Mouskattack $3 1 .00 

Frogger $31.00 

Cross Fire (ROM) $36 00 

SYNAPSE 

File Manager 800 $6900 

Chicken ,...„.,' $26.00 

Dodge Racer $26.00 

Synassembler $30.00 

Page 6 $ 1 9.00 

Shamus $26.00 

Protector $26.00 

Nautilus $26.00 

Slime $26.00 

Disk Manager $24.00 

DATABO FT 

Pacific Coast Highway $25.00 

Canyon Climber $25.00 

Tumble Bugs $25.00 

Shooting Arcade $25 00 

Clowns and Balloons $25.00 

Graphic Master $30.00 

Graphic Generator $13.00 

Micro Painter $25.00 

Text Wizard '. $79.00 

Spell Wizard $64.00 

Bishop's Square $25.00 

Sands of Egypt $25.00 



One Year ExtendedWarranty $7000 

CX481 Entertainer Package $69 00 

CX482 Educator Package . $130 00 

CX483 Programmer Package $54 00 

CX484 Communicator Package $344 00 

FOR ATARI — — - — — — 



APX 

Text Formatter $18 50 

Fjn-.ly Budgeter $18 50 

Eastern Front $24 00 

Family Cash . $18 50 

Jukebox $13.50 

Downhill $18.50 

Outlaw $18 50 

Holy Grail $24.00 

Player Piano $18 50 

Keyboard Organ $ 1 8.50 

Number Blast $13.50 

Frogmaster $ 1 8.50 

747 Land Simulator $ 1 8.50 

Bumper Pool $1350 

CBS 

K-razy Shoot Out $32 00 

K-razy Kritters $32.00 

K-razy Antics $32 00 

K-star Patrol $32 00 

EPYX 

Crush. Crumble & Chomp $24 00 

Crypt of the Undead $24.00 

Curse of Ra $16.00 

Datestones & Ryn $ 1 6.00 

Invasion Orion $ 1 9.00 

King Arthurs Heir $24.00 

Morloc's Tower $1 6.00 

Rescue at Rigel $24.00 

Ricochet $16.00 

Slar Warrior $29.00 

Temple of Asphai $29.00 

Upper Reaches of Apshai $16.00 



WICO 
Joy Sticks 

for Atari, Commodore. 

Apple & Franklin .... 

CALL 




computer mail order west 

800-648-3311 

IN NV. CALL (70S)fSaS-BES4, P.O. BOX BBSS, BTATELINE, NV. B9449 

international OROERS: All shipments outside continental United States must be pre-paid by certified check only! Include 3%(minimum $3 00) shipping and handling] 
educational DISCOUNTS: Additional discounts are available from both Computer Mail Order locations to qualified Educational Institutions. 
apo a fpo, Add minimum $500 shipping on all orders. CP/M is a registered trademark of Digital Research Inc 



A Beginner's 

Computer 

Glossary 



A Beginner's High-tech Glossary 

To help you befriend your computer and become 
literate in its vocabulary, here is a list of 
commonly used words. Learn the meanings of 
these words and you will feel more comfortable 
advancing your computer knowledge. 

ASCII — American Standard Code for Information 
Interchange. A standard 8-bit information code 
used with most computers and data terminals. 
Many systems use only seven of the eight bits, 
providing a total of 128 possible characters 
including upper- and lower-case alphabet, punc- 
tuation, numbers, spacing, and machine or con- 
trol commands. 

Assembly language — A machine-oriented language 
for programming. 

BASIC — Beginner's All-purpose Symbolic Instruc- 
tion Code. One of the easiest computer program- 
ming languages to learn and master. 

Bit — 1 . A binary digit — either a or 1 . 2. A unit of 
information capacity of a storage device. 3. A 
single pulse in a group of pulses. 

Bug — Any mechanical, electrical, or electronic 
defect that interferes with the operation of the 
computer, or a defect in the coding of a program. 

Byte — A generic term to indicate a measurable 
portion of consecutive binary digits. A set of 
eight bits. A byte is universally used to represent 
a character. Microcomputer instructions require 
one, two, or three bytes. A word may be one byte 
long, or less, or more. One byte has two nibbles. 



Chip — An integrated circuit(s) 
usually made of silicon. 



on a wafer slice. 



CPU — Central Processing Unit. The central 
processor of the computer system, which con- 
tains the main storage, arithmetic unit, and 
special register groups. 



CRT — Abbreviation for Cathode-Ray Tube. The 
television tube used to display pictures or 
characters. Also the computer terminal made 
from a CRT. 

Cursor — A position indicator displaying on the 
video screen the position of a character to be cor- 
rected, or a position in which data is ' to be 
entered. Different terminals have different 
restrictions for cursor movements. 

Disk — A circular metal plate with magnetic 
material on both sides, continuously rotated for 
reading or writing. Disks come in 8"- and 514" 
sizes and are inserted into the computer to hold 
information. 

DOS — Disk Operating System. Operating system 
integrating disk-file facilities such as symbolic 
files, automatic space allocation, and sometimes 
dynamic memory allocation. 

EPROM — An electrically programmable ROM 
suited for high performance systems that need 
fast turn-around for system program develop- 
ment and for small volumes of identical pro- 
grams in production systems. 

Input/Output, — Commonly called I/O . 1 . A general 
term for equipment used to communicate with a 
computer. 2. Data involved in such communica- 
tion. 3. The media carrying the data for 
input /output. 

Interface — A common boundary between auto- 
matic data-processing systems or parts of a single 
system, or between two systems or devices. 

K (Kilo) — A symbol equivalent to the numeral 
1024; e.g., 8K equals 8192. 

Loop — 1. The repeated execution of a series of 
instructions for a fixed number of times. 2. A 
coding technique for repeating instructions that 
are usually modified. 

Machine language — 1 . A set of symbols, character, or 
signs, and the rules for combining them that con- 
veys instructions or information to a computer. 
2. Information or data expressed in code that can 
be used directly without further processing. 

Matrix — A rectangular array of numbers subject 
to mathematical operation. A table is a matrix. 

The glossary will be continued next month. 
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H commodore 



PRINTERS-LETTER QUALITY 

CBM 8300, 40 cps $1 450 

Diablo 820, 25 cps 995 

ComRiter 1 7 cps 899 

Transtar 1 30, 1 6 cps (auto load, wp features!) 769 

NEC 7700 series 2350 

N EC 3500 series 1 600 

PRINTERS- DOT MATRIX 

CBM 4022. 80 cps/graphics 395 

CBM 8023, 1 50 cps/graphics 589 

Epson FX Printer 529 

Okidata 82A, 120 cps (serial and parallel) 429 

NEC 8023A (parallel) 469 

IDS Microprism 539 

Star Gemini 429 

Star Gemini(15 columns) 529 

Epson MX 80 Ribbons 

COMMODORE BUSINESS SERIES 

SuperPet (5 languages, 2 processors) 1 409 

CBM 8032 Computer, 80 Column 1 029 

CBM Memory Expansion, 64K 359 

PET 4032, 40 Column 879 

CBM 8050, 1 mg. Dual Drive 1 259 

CBM 8250, 2 mg.. Dual Drive 1 500 

CBM D9060, 5 mg. Hard Disk 2240 

CBM D9090, 7.5 mg. Hard Disk 2600 

CBM 4040. 340K Dual Orive 919 

CBM 2031 , 1 70K Single Drive 489 

DC Hayes Smart Modem 220 

BUSINESS SOFTWARE 

WordPro4* or5* 309 

Administrator 489 

VisiCalc (expanded) 199 

The Manager (database) 199 

BPI A/R, G/L, Job Cost, Inventory, Payroll 325 /ea. 

TO ORDER CALL TOLL FREE 
800-527-4893 800-442-1048 (Within Texas) 

SJB DISTRIBUTORS, INC. yttt 

10520 Piano Road, Suite 206 /j\\ 

Dallas, Texas 75238 / 

(214)343-1328 
Business Hours 

M- F 8 to 6 

Sat. 10-2 



SOFTWARE FOR CBM 64 

IWord Processing (WordPro 3 + ) $69 

I Word-Pac (tape) 60 

I The Assistant Series 

Writer's Assistant (easy and flexible) 99 

File Assistant (database with merge) 99 

Spreadsheet Assistant 99 

Personal Finance Assistant (great reports) 45 

I Coco (computer tutoring game) 44 

I Coco II (build your own games easily) 45 

I Home Accounting Package 39 

I General Ledger A/R, A/P (with check writing) 175e 

ICBM EasyFinance 50 

I Data Manager 70 

I Stock (investment analysis) , 80 

I Pet Emulator (emulates 4.0 basic) 30 

I Sprite-Magic (use joystick to design sprites) 19 

I Assembler Package (cassette or disk, compiled, 

includes editor, loader, disassembler) 39 

I Motormania (arcade tape) 27 

I Renaissance 27 

|Colorsketch (draw on screen w/joystick, paint, 

save to tape or disk) 16 

I Spacebelt 20 

I Matchmaker 16 

1 Retroball 34 

INTERFACES AND ACCESSORIES 

|80 Column Expander 1 59 

I VIC 1 600 Modem 95 

I VIC 1650 (auto answer, autodial) 150 

I VIC 1525 Graphic Printer 329 

I VIC 1 530 Datasette Recorder 65 

I VIC 1541 Disk Drive 329 

I VIC Switch (connect 8 64's or Vies to printer.dd) 1 49 

I IEEE Interface 85 

JPET-IEEE cable 33 

I IEEE-IEEE cable (2m) 39 

I Parallel Interface (Epson, Okidata, IDS, NEC) 80 

IrS-232 Printer Interface (Okidata, Diablo, etc.) 60 

I Apple Loader 90 

I Programmers Reference Guide 18 

I Verbatim Diskettes (10 per box) 26 

I Victree 75 

VIC PRODUCTS AND ACCESSORIES 

|8K RAM Memory Expansion Cartridge 44 

I16KRAM 85 

|24K RAM 1 29 

IviC IEEE Interface 75 

JviC 3 Slot Expander 39 

IviC 6 Slot Expander 70 

IRS232 Printer Interface 65 

I Cassette Interface 27 

I Intro to Basic I or II 22 

I Home Finance Package (6 tapes) 47 

JGorf 30 

Iomega Race 30 

I Video Vermin 29 

] Heswriter (wp cartridge) 29 

j Turtle Graphics (cartridges) 33 

I Arcade Joystick - Heavy duty w/2 firing 

burtons! Great for the VIC or 64 25 



MasterCard, Visa, Money Order, Bank Check 

COD (add S5) accepted. 

Add 3°o surcharge for credit cards. 

In stock items shipped within 48 hours, F.O.B, Dallas, TX 

All products shipped with manufacturer's warranty. 



Prices are subject fo change without notice. 
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The 68000 

DREAM MACHINE 



WE (SORT OF) LIED: 

Motorola has been promoting its advanced microprocessor 
chip as a vehicle for large, complex systems exclusively. 
Now, the 68000 does work well as the heart of big, complex 
systems. But their promotional literature implies that one 
can only build big, complex systems with the 68000, and that 
is dead wrong (in our opinion). Nevertheless, the public 
(that's you!) perception of the 68000 follows Motorola's line: 
Big systems. Complex systems. 

Our boards are not complex and not necessarily big (starting 
at 4K). Our newsletter is subtitled "The Journal of Simple 
68000 Systems." But since the public has become condi- 
tioned to the 68000 as a vehicle for FORTRAN, UNIX, LISP, 
PASCAL and SMALLTALK people naturally expect all these 
with our $595 (starting price) simple attached processor. 
Wrong! 

We wrote our last ad to understate the software we have 
available because we wanted to get rid of all those guys who 
want to run (multi-user, multi-tasking) UNIX on their Apple II 
and two floppy disks. Running UNIX using two 143K floppies 
is, well, absurd. The utilities alone require more than 5 
megabytes of hard disk. 

HERE'S THE TRUTH: 

We do have some very useful 68000 utility programs. One of 
these will provide, In conjunction with a suitable BASIC com- 
piler such as PETSPEED (Pet/CBM) or TASC (Apple II), a five 
to twelve times speedup of your BASIC program. If you have 
read a serious compiler review, you will have learned that 
compilers cannot speed up floating point operations 
(especially transcendentals). Our board, and the utility soft- 
ware we provide, does speed up those operations. 

Add this line in front of an Applesoft program: 

5 PRINT CHR$(4);"BLOADUTIL4,A$8600":CALL38383 

That's all it takes to link our board into Applesoft (assuming 
you have Applesoft loaded into a 16K RAM card). Now run 
your program as is for faster number-crunching or compile it 
to add the benefit of faster "interpretation". Operation with 
the Pet/CBM is similar. 

68000 SOURCE CODE: 

For Apple II users only, we provide a nearly full disk of un- 
protected 68000 source code. To use it you will have to have 
DOS toolkit ($75) and ASSEM68K ($95), both available from 
third parties. Here's what you get: 

1) 68000 source code for our Microsoft compatible floating 
point package, including LOG, EXP, SQR, SIN, COS, TAN, 
ATN along with the basic four functions. The code is set up to 
work either linked into BASIC or with our developmental 
HALGOL language. 85 sectors. 



2) 68000 source code for the PROM monitor. 35 sectors. 

3) 68000 source code for a very high speed interactive 3-D 
graphics demo. 115 sectors. 

4) 68000 source code for the HALGOL threaded interpreter. 
Works with the 68000 floating point package. 56 sectors. 

5) 6502 source code for the utilities to link into the BASIC 
floating point routines and utility and debug code to link into 
the 68000 PROM monitor. 113 sectors. 

The above routines almost fill a standard Apple DOS 3.3 flop- 
py. We provide a second disk (very nearly filled) with various 
utility and demonstration programs. 

SWIFTUS MAXIMUS: 

Our last advertisement implied that we sold 8MHz boards to 
hackers and 12.5MHz boards to businesses. That was sort of 
true because when that ad was written the 12.5MHz 68000 
was a very expensive part (list $332 ea). Motorola has now 
dropped the price to $111 and we have adjusted our prices ac- 
cordingly. So now even hackers can afford a 12.5MHz 68000 
board. With, we remind you, absolutely zero wait states. 

'Swiftus maximus'? Do you know of any other 
microprocessor based product that can do a 32 bit add in 0.48 
microseconds? 

AN EDUCATIONAL BOARD? 

If you want to learn how to program the 68000 at the 
assembly language level there is no better way than to have 
one disk full of demonstration programs and another disk full 
of machine readable (and user-modifiable) 68000 source 
code. 

Those other 'educational boards' have 4MHz clock signals 
(even the one promoted as having a 6MHz CPU, honest!) so 
we'll call them slow learners. They do not come with any 
significant amount of demo or utility software. And they com- 
municate with the host computer via RS 232, 9600 baud max. 
That's 1K byte/sec. Our board communicates over a parallel 
port with hardware AND software handshake, at 71 K 
bytes/sec! We'll call those other boards handicapped 
learners. 

Our board is definitely not for everyone. But some people find 
it very, very useful. Which group do you fit into? 

DIGITAL ACOUSTICS 

1415 E fc McFadden, Ste. F 

Santa Ana, CA 92705 

(714)835-4884 



Apple, Applesoft and Apple II are trademarks of Apple Computer Company. Pet is a trademark of Commodore Business Machines.- 
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68000 BCD 
and Privileged Instructions 



by Joe Hootman 



The information presented this 
month was compiled with the 
assistance of Motorola, Inc. 



BCD Instructions 

This month I have included a table of 
BCD instructions (see table 1|. These 
instructions are similar to BCD opera- 
tions in most microprocessors except 
that there are only three instructions 
implemented in the 68000. The basic 
instruction operates on packed BCD 
data, stored in memory, in the byte 
mode. The traditional method used to 
implement complex operations on BCD 
data is to convert the BCD to binary, 
perform the operations on the binary 
data, and then reconvert to BCD. 

Privileged Instructions 

The privileged instructions in table 2 
are used by the processor when exe- 
cuting programs in the supervisor state. 
The supervisor state of the 68000 is 
considered to be a protected state; i.e., 
the user operating in the user mode 
does not have easy access to the super- 
visor state. When in the supervisor 
state the 68000 can make use of the full 
instruction set. However, when the 
processor is in the user state, privileged 
instructions cannot be executed. If the 
user attempts to execute any one of the 
privileged instructions, the processor 
will go into exception processing. 
When entering exception processing, 
the S bit in the status register is set to 1 
and the trace bit is set to 0. 

Exception processing can be entered 
two ways — by internal sources or by 
external sources. Internal sources con- 
sist of the following: instructions such 
as TRAP, TRAPV, CHK, division by 0; 



privilege instructions used while in the 
user mode; trace-mode operation; odd 
addresses associated with long word or 
word data; and illegal or unimple- 
mented instructions. External sources 
consist of hardware interrupts, bus er- 
rors, or reset request. 

Exception processing is used when 
there may be a problem with either the 
software or hardware. The processor is 
designed so that when it is in the super- 
visor state it can inform the user of 
possible software or hardware prob- 
lems, and take the proper steps to cor- 
rect these potential problems. 

Most of the privileged instructions 
are used to manipulate the user stack 
pointer and the system status register. 
There are, however, some special in- 
structions that can be executed in the 
supervisor state. 

Reset External Devices (RESET) is a 



Table 1: BCD Instructions 



command that causes the reset pin of 
68000 to go low. Any device connected 
to the reset pin is also reset. This com- 
mand allows the 68000 to reinitialize 
the peripheral components using soft- 
ware in the supervisor mode. 

Return from Exception (RTE) is the 
statement that is used to resume pro- 
cessing after an exception has occurred. 
Generally this statement is used at the 
end of some service routine to return 
control to the user. 

The STOP instruction is used to 
stop the 68000 from fetching and ex- 
ecuting instructions. Execution does 
not continue until an external inter- 
rupt, trace, or reset exception occurs. 
The STOP instruction can be used to 
stop the processor and wait for an 
interrupt. The immediate data follow- 
ing the instruction is used to set the 
status register. 



Mnemonic Data Size/CCR Name 


Comments 


















ABCD 8 Add Decimal ; 
CCR with Extend 
XNZVC 

. u .u • 


The source and destination and the X, bit ate 
added together using BCD arithmetic and the 
result stored in the destination. The X bit is 
normally set as the result o£ a previous BCD 
calculation. 

Opwoid Format 
IS 14 13 12 LI 10 9 8 T 6 5 4 i 2 I 




§| 


1 


O 


'S 


Register 
Rx 


1 








IJ 


1 


R/M 


Kegjsta] 
Ry 




R/M =■ specifies a data register. 

R/M « 1 specifies an address register for the 

predecrement addressing mode 

(memory to memory). 
Hx field specifies destination register. 
Ky field specifies the source register. 



(continued) 
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HYPERCARTRIDGE® 
for ATARI® 400/800 

16K 




$39 

w/o EPROMs/ROMs 

FOR SOFTWARE DEVELOPERS 
AND HOBBYISTS! 

• extend memory of 16K RAM 
and 32K RAM computers 

• create 16K cartridges easily 
with an EPROM programmer 

• combine ATARI® BASIC ROMs 
with your own subroutines 
on ROM/EPROM 

• eliminate need for disk drive 
and extra RAM for lengthy 
programs 



CONFIGURATIONS: 

#1 Any combination of 4 

2532 EPROMs/2332 

ROMs 
#2 Two ATARI ROMs 

and two 2532's (or 

2332's) 
SPECIFY WITH ORDER 



Also order: 

2532 4K EPROMs $7.50 each 

with cartridge order only 

*************************** 

CHAMELEON COMPUTING® 

Dept. of Physics & Astronomy 

Box 119-M 

Dickinson College 

Carlisle, PA 17013 

(717) 245-1717 

*************************** 

Please add: 

$1.50 shipping/handling 

PA residents add 6% sales tax 

CHECK, MC, VISA 

Quantity discounts available 



Table 1 (continued) 
Mnemonic Data Size/CCR Name 



Comments 



SBCD 



8 

CCR 

X N Z V C 

» u -*;u .'«•■ 



Subtract 
Decimal 
with 

I'Eitenii^; 



The source is subtracted, using BCD arithmetic, 
from the destination (with the extend bit) 
and the result is stored in the 
destination. 

Opword Format 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 O 



Register 
Rx 



R/M|Registei 
Ry 



R/M = specifies a data register. 

R/M = 1 Specifies an address register for the 

predecrement addressing mode 

(memory to memory). 
Rx — specifies the destination register. 
Ry — specifies the source register. 



NBCD 



8 
CCR 

XNZVC 
•'. U VU » 



Negate 
; Decimal. 
with 
Extend 



The addressed data along with the extension 
bit is subtracted from zero, using BCD 
arithmetic, and the result is stored 
in the destination. 

Opword Format 

151413 12 1110 9 8 7 6 5 4 3 2 10 






1 








1 














O Effective Address 
1 Mode 1 Register 



The effective address field specifies the 
destination. The following effective addressing 
modes cannot be used: 2, 10, 11, 12, 13, 14.' 



U — the bit is not defined. 

Table 2: Privilege Instructions 

Mnemonic Data Size/CCR Name 



Comments 



MOVE 
USP 



32 

CCR 

XNZVC 



MOVE 
UserSP 



The contents of the user stack pointer is 
transferred to or from the specified 
address register. 

Opword Format 

,15 14 13 12 II 10 9 8 7 6 5 4 3 2 10 



;o 


l 





b 


i 


,i 


l 








1 


1 


dr Register 



dr field specifies the direction of transfer: 
v.-.'Oj.— specifies the address register to USP. 
1 -r specifies the USP to the address register. 

The register field specifies the address register 
,; that is used in the transfer. 



MOVE 
toSR 



16 

CCR 

XNZVC 



Moveto 
the Status 
Register 



The contents of the source operand is moved to ' 
the status register. 

Opword Format 

T5 14 13 12 11 10 9 8 7 65 4 3 2 '■'•.I':.ff. 



Effective Address 
Mode I Register 



The effective address specifies the destination 
register. The following effective addresses cannot 

beused:2, 10, 11, 12, 13, 14.' 



EORI 


16 


Exclusive 


to SR 


CCR 


OR 




XNZVC 


immediate 
to Status 
Register 



The immediate data is exclusive ORed with the 
contents of the Status Register (SR) and the 
results stored in the Status Register. 

Opword Format 
IS 14 13 12 11 10 9 8 7 6 5 4 3 2 10 















1 





1 








1 


1 


1 


1 


1 





a 


Word Data 





(continued) 
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Table 2 (continued) 

Mnemonic Data Size/CCR Name 



Comments 



ANDI 
to SR 



16 
CCR 

XNZVC 



AND 

Immediate 
to Status 
Register 



AND the immediate data with the contents of 
the Status Register (SR] and place the results 
in the SR, 

Opword Format 
15 14 13 12 1110 9 8 7 6 5 4 3 2 1 












o| 





1 








1 


1 


1 


i 


l 


p 





Word Data 



ORI 

to SR 



16 
CCR 

XNZVC 



Inclusive 
OR 

Immediate 
to Status 
Register 



The contents of the Status Register (SR) and the 
immediate data are inclusively ORed and the 
results stored in the SR. 



Opword Format ■ '■.- 
15 14 13 12 1110 9 8 7 6 5 4 3 2 10 






























I 


;i. 


l 


i 


i: 








Word Data 



ANDI 
to SR 



16 
CCR 

XNZVC 



AND 

Immediate 
to the 
Status 
Register 



The Status Register and the immediate data are 
logically ANDed and the results left in the 
Status Register. 



Opword format 



15 14 13 12 11 10 


9 


8 


7 


6 


5 


4 


■■_* 


-.a. 


;IW 

















: o; 


i 








1 


1; 


1 


r 


i 


»w 


Word Data 



RESET 



CCR 
XNZVC 



Reset 

External 

Devices 



This instruction causes the reset pin of the 
68000 to reset the external devices that are 
connected to the reset pin. 

'■■'."'.'• Opword Format 
15 14 13 121110 9 8 76 5 4 3 2 10 






1 








1 


1 


■1 








1 


■ l; 


1 


p 





'©'. 


\a 



STOP 



CCR 

XNZVC 
Depends on 
Immediate 
Data 



Load 
Status 
Register 
and Stop 



The immediate data is placed in the SR and 
thePC is advanced to the next instruction jjut j 
processuig stops at this point. Execution 
of instructions resumes when a trace, . 
interrupt, or reset condition occurs. 

Opword Format 
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 






i 


-o 


vO 


.1 


J'l' 


1 





:0 


1 


■ i 


% 





P 


:>. 





'":'■■; Immediate Data 



RTE 






Return 


CCR 


from 


XNZVC 


Exception 


pulled from 




stack 





The SR and PC are pulled from the system stack 
and processing continues at the PCpuIled from 
the stack in either user or supervisor state, 
depending on the S bit in the Status Register fSR) 
pulled from the stack. 

' Opword Format 
15 14 13 12 1110 9 8 7 6 5 4 3 2 10 






; -r 


o 


:o 


l 


i 


;i 


0: 





1 


1 


'-I 





rf 


; v 


T 



JMCftO 



</Full Screen Editing 
^Copy-Move sentences, paragraphs 
»/ Insert-Delete letters, sentences 
i/Form letters-User defined data 
</ Shorthand-words, phrases 
»/ Centering-J ustif ication-Tabs 
i/Headers-Footers-set page size 
»/ Automatic Page Numbering 
^Double columns-set margin, line size 
>/ Printer graphics-send hex codes 
i/Set up to support most printers 
^Disk file concatenation 
^Program update support provided 

THE NEXT LOGICAL 
STEP IN THE 

EVOLUTION of 
WORD PROCESSING 



COPY-WRITER 



Copy-Writer is a full featured professional quality 
word processor. It offers all the capabilities required 
for high performance and efficiency. In addition, 
advanced features such as double columns, multiple 
disk files, printer hex control, etc. Copy-Writer is 
written in FORTH, a unique language that runs 
nearly as fast as machine code but actually occupies 
less memory. This allows more room in memory for 
lines of text. More than otherwise possible. 
Copy-Writer updates will be distributed on request 
to all registered users for just the update cost. Even 
when a more powerful version is Introduced! 

AVAILABLE FOR 40XX/8032/C64 

on| y $145.00 

SEE YOUR DEALER OR: 



.P.O. Box 102 



[MICnOTECMJ Langhorne, Pa 19047 
215-757-0284 

DEALER INQUIRIES INVITED 



Commodore 
Gets Smart 

"Having a modem and a good terminal 
software package like this can really open 
up a new world ot applications for your 
Commodore system." — Robert W. Baker 
- MICROCOMPUTING 

■/ record to disk/transmit from disk 
■S output to Commodore/ASCII printer 
S XON/XOFF control capability 
S translates files ASCII/BASIC/W-PRO 
• system status line-clock with alarm 
•S user table allows encoded data 
v 1 user access to routines-telemetry 

The most sophisticated terminal package 
available. Gives you all the features need- 
ed now and for the future. Available - 
Commodore 40XX, 8032 with 4040, 8050, 
PEDISK II 

Available from cgrs MICROTECH, 
P.O. Box 102, Langhorne, PA 19047 
215-757-0284 

$1 29.00 DEALER INQUIRIES INVITED 




COMPACK 
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UTILITIES 

for AINU 400/800/1200. 




Vervan 
^^ utility programs 

^^^^ require no software 
^^^^ modifications and are 
a must for all serious ATARI BASIC 
programmers. 

CASDUP 1.0 & 2.0 To copy most 
BOOT tapes and cassette data files. 
1.0 is a file copier. 2.0 is a sector 
copier. Cassette only $24.95 

CASOIS To transfer most BOOT 
tapes and cassette data files to disk. 
Disk only $24.95 

FULMAP BASIC Utility Package. 
VMAP-variable cross-reference, 
CMAP-constant cross-reference 
(includes indirect address 
references), LMAP-line number 
cross-reference, FMAP-all of the 
above. Will list "unlistable" 
programs. Also works with 
Editor,' Assembler cartridge to allow 
editing of string packed machine 
language subroutines. All outputs 
may be dumped to printer. Cassette 
or Disk $39.95 

DISASM To disassemble machine 
language programs. Works with or 
without Editor/ Assembler 



cartridge. May be used to up or 
down load single boot files. All 
output can be dumped to printer. 
Cassette or Disk $24.95 

DISDUP For disk sector 
information copying. May specify 
single sector, range of sectors, or all. 
Copies may be made without read 
varify. Disk $24.95 

[JG products are available at 
computer stores, B. Dalton 
Booksellers and independent 
dealers around the world. If IJG 
products are not available from your 
local dealer, order direct. Include 
$4.00 for shipping and handling per 
item. Foreign residents add $11.00 
plus purchase price per item. U.S. 
funds only please. 

IJG, Inc. 1953 W. 11th Street 
Upland, California 91786 
Phone: 714/946-5805 



KifsfromPe 
ITS JUST GREAT! 



ATARI TM Warner Communications, inc. 




_____ . nlfeiir ATARI , 
;MMiln« LanjMje. To (each the 



ITS JUST GREAT! 

WARi TWWan»rCcmmu«iicittoor.Jnfc '* 



If 

5t ' $ wm 

froml,^ 

IT'S 
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GREAT! 
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A Versatile Hi-Res 
Graphics Routine for the APPLE 



by Adam P. King 



You can design and use 
multicolored high-resolution 
shapes on the Appje. Software 
is provided for shape collisions, 
animation, and excluslve-OR 
drawing. 



Graphics Sub 

requires: 

Apple II with 48K and 
Applesoft. 



One of the deciding factors for my pur- 
chasing an Apple II rather than another 
micro was the Apple's graphics capabil- 
ities. The prospect of using the Apple to 
produce arcade-style games was par- 
ticularly inviting. Applesoft BASIC 
comes equipped with its own graphics 
routines. However, when using these 
routines to make my own games many 
inadequacies became apparent. The 
programs presented in this article use a 
completely independent graphics rou- 
tine to remedy these shortcomings. 

When designing the routine, I kept 
the following criteria in mind as essen- 
tial for arcade-style graphics: 
Speed — The routine has to be fast to 
achieve smooth graphics movement. 
Multiple shapes — Many shapes must 
be able to co-exist. Using different 
numbers to represent different shapes 
is ideal. 

Collisions — For almost any graphics 
game it is necessary to know when one 
shape comes in contact with another 
shape or object on the screen. 
Multicolored shapes — The appeal of 
multicolored shapes over solid colored 
shapes is substantial. The flavor of 
most arcade games would be lost with- 
out a diversity of colors. 
Constant background — For many 
arcade-style games, and especially 



those of the non-shoot-'em-up genre, it 
is important the drawing of shapes does 
not destroy previously existing back- 
ground design. 

Applesoft BASIC'S graphics routine 
proved limited on three counts: speed, 
collisions, and multicolored shapes. 

Speed — The Applesoft routines 
often produce a flicker effect when a 
shape is moved. This is especially 
apparent when solid shapes (i.e., not 
stick figures) are used. The routine 
presented here is considerably faster 
and is designed to handle solid shapes. 
Speed does not come cheaply, however. 
This routine is relatively inefficient in 
terms of memory storage so I suggest 
you use a 48K Apple. Unlike the Apple- 
soft routines, this routine excludes a 
Rotation and Scale function, thereby 
gaining additional speed. 

Collisions — Applesoft routines do 
not detect shape collisions. They are 
extremely difficult to implement 
within a program using only Applesoft 
commands. 

Multicolored shapes — In the cur- 
rent form of Applesoft graphics, defin- 
ing a single shape containing more than 
one color is impossible. Multicolored 
shapes are achieved only by super- 
imposing one colored shape on another 
— a slow and tedious procedure. 

The routine presented here 
remedies the above problems and 
meets the rest of the criteria. In addi- 
tion, this routine provides an easy-to- 
implement form of animation. 

Entering the Graphics Routine 

Entering the graphics routine is a 
three-part procedure. 

1 . Enter the BASIC program in listing 1 
(Make Tables) and run it. This sets 
up two tables, which are used by the 
graphics routine. 

2. Enter machine language (call - 151) 



and input the program in listing 2 

(Graphics Sub). This is the actual 

routine. 
3. Re-enter BASIC (3D0G) and type 

"BSAVE GRAPHICS SUB,A$800, 

L$300". 

Enter and save the programs in 
listings 3 and 4. The first, Shape 
Definer, allows you to construct 
shapes. The second, Shape Table De- 
finer, takes these individual shapes and 
composes a shape table for use with the 
graphics routine. 



Defining a Shape 

Before using Shape Definer it is a 
good idea to draw the shape on graph 
paper. Any graph paper will do; how- 
ever, you should note that hi-res 
"squares" on the Apple are slightly 
taller than they are wide by an approx- 
imate ratio of 1 . 13: 1 . Graph paper with 
this distortion produces more accurate 
results. Numbered graph paper is ideal 
because it allows you to identify the 
odd and even columns (I will explain 
later). When designing your shapes on 
paper, fill in squares that will appear as 
colored dots and leave blank squares to 
appear black when the shape is drawn. 
The following six rules provide a guide 
for defining a shape. 

1. Each shape has a Plot Code number. 
This number is either 1 or 0, depen- 
ding on whether your shape's left- 
most column is drawn on even (0) or 
odd columns (1). 

2. Each horizontal row of your shape 
has a Color Code that is either or 1 . 
If the Color Code is the row may 
contain the colors violet, green, 
black, or white. If the Color Code is 
1 the row may contain the colors 
blue, orange, black, or white. 

3. The following table decides the color 
of an individual dot. 
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Color Even Odd 

Code Columns Columns 

violet green 

1 blue orange 

4. Any two horizontal dots placed side- 
by-side on sequential columns ap- 
pear white, overiding rule 3. 

5. Black appears wherever there is no 
dot, except in the specific case of 
rule 6. 

6. Two horizontal dots separated by a 
black space appear to form a solid 
line the color of the two dots. This 
rule does not apply if either or both 
of the dots are white. 

An example shape, shown in figure 
1, helps clarify these rules and serves 
as a trial run of the Shape Definer 
program. This "man" is drawn with 
his first column placed on an even 
column in accordance with rule 1 . He 
has a green face, orange neck, violet 
arms, white body, orange legs, and 
white feet. To understand how the col- 
ors were derived, compare each dot by 
Color Code and column parity with the 
six rules. 

After your shape has been designed 
on graph paper it must be translated in- 
to data that the graphics routine can 
use. Shape Definer does most of the 
work for you, allowing you to input the 
shape in a form that resembles figure 1 . 



Shape Plot Code:0 




C ] C ] C ] ■ 
IC3CKDI 
[][][]■ 
nnrTM 

e o e o e o e 

v d v d v d v 

e d e d e d e 

n n n n 



Figure 1: Shape "man" on graph paper. 





Listing 1: Make Tables 


5 * 


=. - l 




10 


FOR L 


= 2304 TO 2559:X = X + 1 


20 


IF X = 


7 THEN Y = Y + 1:X = 


30 


POKE L 


Y 


40 


NEXT L 


X = - 1 


50 


FOR L 


= 2560 TO 2815 :X = X + 1 


60 


Y = X: 


[F INT (X / 2) = X / 2 




THEN 


Y = Y + 1 


70 


IF X = 


13 THEN X = - 1 


80 


POKE L 


Y: NEXT L 


90 


END 





When you run Shape Definer, you are 
asked specific questions about the 
shape. First you are asked for the 
shape's width (the maximum width of 
the shape] . In the case of the man, the 
width is 7. Next you are asked for the 
length of the shape (the number of 
horizontal rows that contain the 
shape). The man's length is 15. Next 
you must enter the shape's Plot Code. 
The man's Plot Code is 0. After answer- 
ing these questions, the information for 
each row is requested beginning with 
the top row and working down. For 
each row you enter the Color Code and 
then the row itself. The row is entered 
as a string of 0's and l's. A represents 
an empty square on the graph paper and 
1 represents a solid square. Figure 2 
shows the beginning of a run of Shape 
Definer using shape "man." After 
entering the whole shape you are asked 
if the shape is to be animated. All yes or 
no questions should be answered with a 
"Y" or "N". Enter "N" for the man. 
(How to animate shapes will be dis- 
cussed later. ) 

When you finish the shape you 
are entering, it is relisted and you are 
asked if the shape is correct. An "N" 
answer allows you to make changes. In 
this case you are asked which line is to 
be changed and you are allowed to 
change it. When you indicate that the 
shape is correct, the program takes 
over. It prints different "PHASES" 
followed by "WAIT FOR CONVER- 
SION' ' . These listings deal with anima- 
tion. After seven phases you are in- 
structed how to save the shape. Be 
careful here; a mistake could cost you 
the time of re-entering the shape. To 
make another shape simply run the 
program again and save the shape under 
a different name. 

Shape Definer can be used to imple- 
ment a simple, fast, and effective form 
of animation. When your shape is pro- 
cessed there are actually seven separate 
versions of the shape saved. These ver- 
sions, or phases as I call them, corres- 
pond to seven relative positions on the 



Listing 2: Graphics Sub 


0800- 


AD FD 08 


LDA 


J08FD 


0803- 


8D F9 08 


STA 


J08F9 


0806- 


20 88 08 


JSR 


$0888 


0809- 


AE FE 08 


LDX 


$08FE 


080C- 


BD 00 09 


LDA 


$0900, X 


080F- 


8D 81 08 


STA 


$0881 


0812- 


18 


CLC 




0813- 


65 26 


ADC 


$26 


0815- 


85 26 


STA 


$26 


0817- 


BD 00 0A 


LDA 


$0A00,X 


081A- 


8D 34 08 


STA 


$0834 


081D- 


AD FF 08 


LDA 


J08FF 


0820- 


0A 


ASL 




0821- 


0A 


ASL 




0822- 


0A 


ASL 




0823- 


0A 


ASL 




0824- 


8D 2E 08 


STA 


$082E 


0827- 


8D 36 08 


STA 


$0836 


082A- 


8D 3D 08 


STA 


$083D 


082D- 


AD 00 0C 


LDA 


$0C00 


0830- 


8D FC 08 


STA 


$08FC 


0833- 


A2 05 


LDX 


#$05 


0835- 


BD 00 0C 


LDA 


$0C00,X 


0838- 


8D 4B 08 


STA 


$084B 


083B- 


E8 


INX 




083C- 


BD 00 0C 


LDA 


$0C00,X 


083F- 


8D 4C 08 


STA 


$084C 


0842- 


A0 00 


LDY 


#$00 


0844- 


8C FA 08 


STY 


$08FA 


0847- 


AE FC 08 


LDX 


$08 FC 


084A- 


AD 5B 0E 


LDA 


$0E5B 


084D- 


C9 80 


CMP 


#$80 


084F- 


F0 36 


BEQ 


$0887 


0851- 


8D FB 08 


STA 


$08FB 


0854- 


31 26 


AND 


($26), Y 


0856- 


29 7F 


AND 


#$7F 


0858- 


F0 03 


BEQ 


$085D 


085A- 


8D FA 08 


STA 


$08FA 


085D- 


AD FB 08 


LDA 


$08FB 


0860- 


51 26 


EOR 


($26), Y 


0862- 


91 26 


STA 


($26), 1 


0864- 


EE 4B 08 


INC 


$084B 


0867- 


D0 03 


BNE 


$086C 


0869- 


EE 4C 08 


INC 


$084C 


086C- 


CA 


DEX 




086D- 


F0 05 


BEQ 


$0874 


086F- 


E6 26 


INC 


$26 


0871- 


4C 4A 08 


JMP 


$084A 


0874- 


EE F9 08 


INC 


$08F9 


0877- 


AD F9 08 


LDA 


$08F9 


087A- 


20 88 08 


JSR 


$0888 


087D- 


A5 26 


LDA 


$26 


087F- 


18 


CLC 




0880- 


69 12 


ADC 


#$12 


0882- 


85 26 


STA 


$26 


0884- 


4C 47 08 


JMP 


$0847 


0887- 


60 


RTS 




0888- 


48 


PHA 




0889- 


29 C0 


AND 


#$C0 


088B- 


85 26 


STA 


$26 


088D- 


4A 


LSR 




088E- 


4A 


LSR 




088F- 


05 26 


ORA 


$26 


0891- 


85 26 


STA 


$26 


0893- 


68 


PLA 




0894- 


85 27 


STA 


$27 


0896- 


0A 


ASL 




0897- 


0A 


ASL 




0898- 


0A 


ASL 




0899- 


26 27 


ROL 


$27 


089B- 


0A 


ASL 




089C- 


26 27 


ROL 


$27 


089E- 


0A 


ASL 




089F- 


66 26 


ROR 


$26 


08A1- 


A5 27 


LDA 


$27 


08A3- 


29 IF 


AND 


#$1F 


08A5- 


09 20 


ORA 


#$20 


08A7- 


85 27 


STA 


$27 


08A9- 


60 


RTS 
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Listing 3: Shape Definer 

10 DIM L?(50),CC$(50) 

20 HOME : INVERSE : PRINT "SHAPE 

DEFINER": NORMAL 
30 PRINT "INPUT WIDTH OF SHAPE"; 

: INPUT W1:W2 = INT ((Wl - 

2) / 7) + 2 
40 AC = Wl 
50 PRINT "INPUT LENGTH OF SHAPE" 

;: INPUT LE: PRINT "INPUT SH 

APE PLOT CODE" ; : INPUT CC 
60 POKE 6192, W2: POKE 8193, LE: POKE 

8194, CC: AD = 8194 
70 HOME : PRINT "BEGIN SHAPE DEF 

INITION": PRINT 
80 FOR LO = 1 TO LE 
90 IF LO + 2 > 23 THEN VTAB (24 

):TA = 23: GOTO 110 
100 VTAB (LO + 2J-.TA = LO + 2 
110 PRINT LO;"."; 
120 HTAB (4): PRINT "COLOR CODE" 

;: INPUT CC$(LO) 
130 IF CC$(LO) < > "0" AND CC$( 

LO) < > "1" THEN 90 
140 VTAS (TA): HTAB (18): PRINT 

"ROW";: INPUT L$(LO) 
150 IF LEN (L$(LO)) < > AC THEN 

140 
160 IF AG = 1 THEN 210 
170 NEXT LO 
180 HOME : PRINT "WILL THE SHAPE 

BE ANIMATED";: INPUT A$ 
190 IF A? = "N" THEN SK = 1 
200 FOR PH = 1 TO 7 
210 HOME : INVERSE : PRINT "PHAS 

E r;PH: NORMAL :AG = 
220 FOR LO = 1 TO LE: IF SK = 1 AND 

PH > 1 THEN 240 
230 IF LO = 20 THEN VTAB (23): PRINT 

"KIT ANY KEY TO CONTINUE LIS 

TING": GET A$: VTAB (21) 
240 PRINT LO;".";: HTAB (4): PRINT 

CC$(LO);" ";L$(LO) 
250 NEXT LO 

260 IF PH > 1 AND SK = 1 THEN 320 
270 PRINT : PRINT "IS PHASE ";PH 

;" CORRECT";: INPUT A$ 
280 IF A$ = "Y" THEN 320 
290 AG = 1: PRINT "LINE TO CHANGE 

( TO EXIT )";: INPUT LO 
300 IF LO = THEN 220 
310 HOME :TA = 2: PRINT LO;". "; 

CC$(LO);" ";L$(LO): GOTO 110 
320 INVERSE : PRINT "WAIT FOR CO 

NVERSION": NORMAL 
330 FOR LO = 1 TO LE 
340 FOR LI = TO W2 - 1 
350 VI = 
360 AD = AD + 1 

370 B$ = MID? (L$(LO),Ll » 7 + 1,7) 
380 FOR L2 = 1 TO 8 
390 C$ = MID? (B$,L2,1) 
400 VA = VAL (C$) 
410 VA = VA * 2 t (L2 - 1) 
420 VI = VI + VA 
430 NEXT L2 
440 IF CC$(LO) = "1" THEN VI = V 

1 + 128 
450 IF VI - 128 THEN VI = 
460 POKE AD, VI 

470 NEXT Ll:L$(LO) = "00" + LJ(LO) 
480 IF PH = 4 THEN L$(LO) = HID? 

(L$(L0),9, LEN (LJ(LO)) - 8) 

:L?(LO) = "0" + L?(LO) 
490 NEXT LO 
500 AC = AC + 2: IF AC = Wl + 8 THEN 

AC = Wl + 1 
510 AD = AD + 1: POKE AD, 128 
520 NEXT PH 
532 HOME : PRINT "SHAPE DEFINITI 

ON COMPLETED" 
540 PRINT : PRINT "COPY OVER THE 
FOLLOWING LINE": PRINT "CRA 

NGING 'XXXXX' TO THE SHAPE N 

AME" 
550 PRINT : PRINT " BSAVE XXXXX, 

A$2000,L";LE » W2 » 7 + 10 
560 VTAB (5): END 



Listing 4: Shape Definer Table 

10 LOHEM: 16384 

20 HOME : INVERSE : PRINT "SHAPE 

TABLE DEFINER": NORMAL 
30 PRINT "INPUT NUMBER OF SHAPES 
TO ENTER";: INPUT NO: IF NO 
= THEN 30 
35 IF NO > 16 THEN 30 
40 AD = 3327 :A1 = 3071 
50 Nl = Nl + 1: HOME : INVERSE : PRINT 

"SHAPE NUMBER ";N1 - 1: NORMAL 
60 PRINT : PRINT "COPY OVER THE 

FOLLOWING TWO LINES": PRINT 

"CHANGING 'XXXXX' TO NAME OF 
SHAPE" 
70 PRINT " BLOAD XXXXX" 
80 PRINT " GOTO 100" 
90 VTAB (4): END 
100 W2 = PEEK (8192) :LE = PEEK 

(8193) :CC = PEEK (8194) 
110 FOR LO = 1 TO LE * W2 * 7 + 10 
120 AD = AD + 1 
130 POKE AD, PEEK (8194 + LO) 
140 NEXT LO 

150 Al = Al + 1: POKE A1,W2 
160 FOR LO = 1 TO 7:VA = LO 
170 IF CC = THEN 200 
180 VA = VA + 4 

190 IF VA > 7 THEN VA = VA - 7 
200 TE = AD - (LE * W2 * 7 + 9) + 

(W2 * LE * (VA - 1) + VA - 1) 
210 HB = INT (TE / 256) 
220 LB = TE - 256 * HB 
230 Al = Al + 1: POKE Al.LB 
240 Al = Al + 1: POKE Al.HB 
250 NEXT LO:Al = Al + 1: POKE Al.LE 
260 IF Nl < (NO) THEN 50 
270 HOME : PRINT "COPY OVER THE 

FOLLOWING LINE": PRINT "CHAN 

GING 'XXXXX' TO FILE NAME" 
280 PRINT : PRINT " BSAVE XXXXX, 

A$C00,L";256 + AD - 3326 
290 VTAB (3): END 



Listing S: Move It 

20 POKE 16384,0: POKE 16385,0: POKE 

104,64 
30 POKE 106,64: POKE 108,64: POKE 

110,64: POKE 126,64: POKE 17 

6,64 
40 CLEAR 
50 END 



Listing 6: Test Demo 

5 HGR :X = 130:Y = 60:OX = 130:0 

Y = 30: POKE 2303,0 
10 HCOLOR= 1: FOR L = TO 279 STEP 

30: HPLOT 0,0 TO L.191: NEXT 

L: HCOLOR= 3: FOR L = TO 2 

79 STEP 30: HPLOT 279,0 TO L 

,191: NEXT L 
20 GOTO 40 
30 POKE 2301, OY: POKE 2302, OX: CALL 

2048 
40 POKE 2301, Y: POKE 238)2, X: CALL 

2048:OX = X:0Y = Y 
50 X = X + INT (( RND (2) » 3) - 

1) » 4:Y = Y + INT (( RND ( 

2) » 3) - 1) » 4: IF X < OR 

X > 250 OR Y < OR Y > 160 THEN 5 
60 GOTO 30 



horizontal axis that repeat themselves. 
When a shape is not animated, six 
phases are simply identical copies of 
the first phase. If you choose to 
animate a shape you can edit and 
change any or all of the seven phases. 
When editing phases after the first one, 
it is important to add all leading zeros 
that the program appends to strings. 
(This will be obvious when you come 
to it.) Making small changes in each 
phase produces animation in a fashion 
similar to cartoon animation. 
Repeating form every seven phases is 
ideal for cyclical motions such as mov- 
ing arms and legs, blinking lights on a 
space ship, or spinning propellers on an 
airplane. The animation is effective 
only when the shape is moving hori- 
zontally — vertical movement does not 
change the phases. It is important to 
note that the length and width of an 
animated shape must be entered initial- 
ly as the length and width of the largest 
phase defined. 



Using Shape Table Definer 

After you save all the individual 
shapes on disk they must be grouped 
together into a shape table that allows 
you to reference different shapes by 
number, much like the Applesoft 
shape-table system. When Shape Table 
Definer is run, you first enter the 
number of shapes that comprise the 
table (16 maximum). Then you are in- 
structed how to load the shapes in, one 
at a time. The number of the shape be- 
ing loaded appears at the top of the 
screen. Remember to note which num- 
ber goes with which shape. When all 
the shapes are loaded you are instructed 
how to save the table. This table is 
BLOADED when you use the routine. 

Using the Graphics Routine 

The graphics routine is called easily 
from Applesoft BASIC, Integer BASIC, 
or assembly language. The three 
languages have the following in com- 
mon: the X and Y coordinates for the 
shape represent the coordinate of the 
upper left-hand point of the rectangular 
limits of your shape. This might be a 
black dot, as is the case with shape 
"man." All other points are drawn 
relative to this one. The upper limit of 
the X coordinate is 255 and 191 for the 
Y. Because the Apple actually has 280 
horizontal positions, there is a space on 
the right side of the screen, 24 wide by 
192 long, on which you cannot plot. 
This space is ideal (using Applesoft 
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SHAPE DEFINER 

INPUT WIDTH OF SHAPE77 
INPUT LENGTH OF SHAPE? 15 
INPUT SHAPE PLOT C0DE70 

BEGIN SHAPE DEFINITION 



1. 


COLOR 


C0DE70 


R0W70011100 


2. 


COLOR 


C0DE70 


R0W70101010 


3. 


COLOR 


C0DE70 


ROW70101010 


4-i. 


COLOR 


C0DE70 


R0W70011100 


5. 


COLOR 


C0DE71 


R0W700O1O00 


6. 


COLOR 


CODE? 


ETC. 



Figure 2: Sample run of Shape Deflner. 

graphics) for the game's name, scoring, 
extra men, etc. 

Applesoft: To draw a shape on the 
screen, the shape's X coordinate should 
be POKEd into location 2302, the Y 
coordinate into location 2301, and the 
shape number into location 2303. If 
you POKE a shape number that does 
not have a shape defined for it, a ran- 
dom mess will be drawn on the screen. 
Similar problems arise when you POKE 



a Y coordinate, which causes any part 
of the shape to be drawn off the screen. 
Try to avoid these situations. Calling 
2048 draws your shape, exclusive-OR 
style. This type of drawing is much like 
the Applesoft X-Draw command. Call- 
ing 2048 twice in succession with the 
same X and Y coordinate draws the 
shape first in full color and then erased 
to black, leaving any original back- 
ground intact. An important feature of 



the graphics routine is its collision in- 
dicator. If a shape is drawn and a colli- 
sion with any other non-black dot is 
detected, a value greater than is 
stored in location 2298. If 
P = PEEK(2298] and P takes on a value 
greater than 0, then a collision has oc- 
curred. This value should be PEEKed 
only after drawing a shape, not erasing 
a shape. 

The graphics routine presented here 
is completely compatible with Apple- 
soft and Applesoft graphics. However, 
there is one problem — the graphics 
routine resides in memory beginning at 
hexadecimal location $800. As one ac- 
quainted with Murphy's Law might ex- 
pect, this is exactly where Applesoft 
stores its variables and source code for 
BASIC programs. Happily, this colli- 
sion of data can be circumvented. Run 
the program in listing 5 (Move It) and 
pointers will be set to locate Applesoft 
programs and variables above the hi-res 
screen area. This insures that the 
graphics routine, hi-res screen, and 
Applesoft never meet. In Applesoft, 
Move It must always be run before 
loading a program, writing a program, 



What's Where in the Apple 

A Complete Guide to the Apple Computer 



This Revised Edition of the famous 
Apple Atlas provides Apple 
computerists with a framework for 
understanding both the overall 
structure of the Apple system and 
programming techniques that 
exploit that knowledge. 

What's Where in the Apple contains 
the most complete memory map 
ever published as well as detailed 
information needed for actual 
programming. 

All for only $24.95 

(plus $5.00 s/h) 

MICRO makes it easy to order. 
Send check (payable to MICRO) to: 



t .o Where in *« 
* na APPLE 




For owners of the original edition, 

MICRO is offering a companion book, 

THE GUIDE to What's Where In the 

Apple, for only $9.95 (plus $2.00 s/h). 



THE GUIDE contains all new material 

that explains and demonstrates how to 

use the Atlas and Gazetteer published 

in the original volume of What's 

Where in the Apple? 



For Fast Service 

Call our toll free number: 

1-800-354-8112 

(In PA 1-800-662-2444) 



MICRO 

P.O. Box 6502, Chelmsford, MA 01824 



VISA and MasterCard accepted. 



MA residents add 5% sales tax. 
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loading a machine-language program, 
or just using Applesoft. If you have 
written a program that uses the 
graphics routine, to run it you must do 
the following (in order): 

1. RUN Move It 

2. LOAD BASIC program 

3. BLOAD Graphics Sub 

4. BLOAD shape table being used 

5. RUN BASIC program 

This procedure could be automated 
with the use of an EXEC file. 
Remember, to retain the color integrity 
of the shape, shapes with Plot Code 
can have only even numbers for their X 
coordinate, and shapes with Plot Code 
1 can have only odd numbers for their X 
coordinate. Thus,, when moving a 
shape around the screen, it must be 
moved in increments of two along the 
horizontal axis. The program in listing 
6 (Test) demonstrates the graphics 
routine with shape 0, assuming that 
the Plot Code is 0. Test moves the 
shape randomly over a background 
without erasing it. 

Integer BASIC: The Integer routine 
follows the same POKEs and rules as 



Applesoft except the Move It program 
is not necessary. Instead, simply set 
LOMEM to 16384 before BLOADing 
the graphics routine and shape table. In 
Integer there is no inherent command 
to set the high-resolution mode. The 
following Integer line acts like the 
HGR command when executed from 
within a program. 

FOR L = 8192 TO 16383 : POKE L,0 : 
NEXT L : L = PEEK(- 16300)+ PEEK 
(- 16297) + PEEK(- 16301) + PEEK 
(-16304) 

Substitutiong -16302 for -16301 sets 
full-screen graphics. 

Assembly Language: From assem- 
bler, the X coordinate is stored in loca- 
tion $8FE ; the Y coordinate in location 
$8FD, and the shape number in loca- 
tion $8FF, If a collision is detected, a 
number greater than is stored in loca- 
tion $8FA. To exclusive-OR the shape 
with the hi-res screen, jump to the 
subroutine at location $800. Begin all 
programs after location $4000 to insure 
that your assembly-language program 
does not interfere with the graphics. 



Advanced Technique 

To use the graphics routine op- 
timally you could define all shapes that 
should register collisions with each 
other, using only dots of the same col- 
umn parity, then define a background 
using only dots of the opposite column 
parity. This way shapes can run over 
the background smoothly, detecting 
only collisions with other shapes. You 
should not attempt this method unless 
you have a thorough understanding of 
the Apple graphics system. 

With the graphics routine and sup- 
porting software presented in this arti- 
cle, you should be able to make graphics 
games on the Apple easily. If you take 
the time to enter and understand the 
routine, you will find you have a 
powerful graphics tool at your com- 
mand. Even the novice programmer 
should be capable of creating pro- 
fessional-quality graphics. 

Adam King is a sixteen-year-old student 
who taught himself assembly language. He 
may be contacted at Hut Hill Road, 
Bridgewatei, CT 06752. 

JMCftO 
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THE TACKLER " - dual . mode parallel 

INTERFACE FOR THE APPLE" 2 BOARDS IN ONE FOR NO MORE 
COMPATIBILITY PROBLEMS! 

An intelligent board to provide easy control of your printer's full potential. 
Plus a standard parallel board at the flip of a switch - your assurance oi 
compatibility with essentially all software for the APPLE". Hires printing 
with simple keyboard commands that replace hard to use software 
routines. No disks to load. Special features include inverse, doubled, and 
rotated graphics and many text control features, available through easy 
keyboard or software commands. Uses Industry standard graphics 
commands. This is the first truly universal intelligent parallel interface! 
Change printers - no need to buy another board. Just plug in one of our 
ROM'S and you're all set. ROM'S available lor Epson, C. Itoh, NEC, and 
Okidata - others ava ilable soon. Specify printer when ordering. Call for 
Price. 




Super Pix 

Hires screendump software for the Epson, OKI, C. Itoh and Nee 8023. Use with Tymac PPC-100. 
Special $19.95 (Specify Printer) 




THE UPGRADEABLE PPC-100 
PARALLEL PRINTER CARD 

A Universal Centronics type parallel printer board complete with cable 
and connector. This unique board allowsyou to turn on and off the high 
bit so that you can access additional features in many printers. Easily 
upgradeable to a fully intelligent printer board with graphics and text 
dumps. Use with EPSON, C. ITOH, ANADEX, STAR-WRITER, NEC, OKI 
and others with standard Centronics configuration. $139.00 



IF YOU WANT GRAPHICS AND FORMATTING THEN 
CHOOSE THE PERFORMER 

lor Epson, OKI, NEC 8023, C. ITOH 8510 provides resident HIRES screen 
dump and print formatting m firmware. Plugs into Apple slot and easy 
access to all printer fonts through menu with ?RH command. Use with 
standard printer cards to add intelligence. $49.00 specify printer. 






THE MIRROR FIRMWARE FOR NOVATION APPLE CAT II® 

The Data Communication Handler ROM Emulates syntax of an other popular Apple Modem product 
with improvements. Plugs directly on Apple CAT II Board. Supports Videx and Smarterm 80 column 
cards, touch tone and rotary dial, remote terminal, voice toggle, easy printer access and much more. 
List $39.00 Introductory Price $29.00 



MINI ROM BOARDS 

Place your 2K program on our Mini Rom 
Board. Room for one 2716 EPROM. Use in any 
slot but zero. Only $34.95 



DOUBLE DOS Plus 

A piggy- back board that plugs into the disk- 
controller card so that you can switch select 
between 00S 3.2 and DOS 3.3 DOUBLE 00S 
Plus requires APPLE DOS ROMS. $39.00 



Mr. Lister - Customer Contact Profiler & Mailer 

A Super Mail List Plus more — up to 1000 Entries on single 3.3 Disk(only 1 Drive required) — 2 
second access time to any name — full sort capabilities — Dual Index Modes — supports new 9 
digit Zip. Easy to follow manual — Not Copy Protected — 4 user defined tables with 26 sort 
selections per table — Beta tested for 6 months — user defined label generation. 
Introductory Price $135. $99.00 Dealer &: Dist. Inquiries Invited. 



APPLE LINK 

A communications system for the Apple* (Requires Hayes Micro Modem). Transmitand receive any 
type of file between APPLES*. Automatic multi-file transfer, real time clock indicating file transfer 
time. Complete error check. Plus conversation mode. Only one package needed for full transfers. 
Compatable with all DOS file types, (requires Hayes Micro Modem) $59.00 



THE APPLE CARD/ATARI CARD 

Two sided 100% plastic reference card Loaded with information of interest to all Apple and Atari 
owners. $3,98 



NIBBLES AWAY II 

AGAIN! Ahead of all others. 

• AUTO- LOAD PARAMETERS . . . Free's the user from having to Manually Key in 

Param values used with the more popular software packages available for the Apple II. 

• EXPANDED USER MANUAL . . . incorporates new Tutorials fo'r all levels of 
expertice; Beginners Flowchart for 'where do I begin' to 'Advanced Disk Analysis' is included. 

• TRACK/SECTOR EDITOR ... An all new Track/Sector Editor, including the 
following features: Read, Write, Insert, Delete Search, and impressive Print capabilities! 

• DISK DIAGNOSTICS . . Checks such things as: Drive Speed, Diskette Media 
Reliability, and Erasing Diskettes. 

• HIGHEST RATED . . . Best back up Program in Softalk Poll (Rated 8.25 out of 10). 

• CONTINUAL UPDATES . . . Available from Computer Applications and new listings 
on the source. $69.95 




Dealer and Distributor Inquiries Invited. 

/MICRO -WARS DIST. INC. 

P.O. BOX 113 POMPT0N PLAINS, NJ. 07444 

201-838-9027 
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APPLE Disk Track Copy 
for Non-Matching Volume Numbers 



by Roland E. Guilbault 



Change the volume number of 
your disks for library reference. 



I decided to take advantage of the 
volume numbers on the disks and am 
writing a program to catalog a disk into 
a data base file. Up until now I have 
been using the default disk numbers. 
Once two or more disks are entered in- 
to the data base, it is impossible to tell 
which disk contains what programs. 
The volume number on the disk will be 
used to provide this information. To 
change my disks over I have to in- 
itialize a new disk to the appropriate 
volume number, then copy the entire 
disk. To facilitate this process I am 
using the Call— A.P.P.L.E. disk 6B 
utilities, which include a track copier. 
This speeds up the copying process, but 
the copied disks do not work! 

To copy a disk using a track copier, 
the volume numbers must match. If 
the volumes do not match, the DOS 
will not boot correctly. 

Embedded within the DOS is the 
value of the expected volume number. 
If the expected value does not match 
the actual disk volume number, the 
load is ignored. At the end of the boot 
the loader transfers to an expected code 
entry and the system errors off. I 
discovered two places within DOS that 
should be modified, plus one location 
in the VTOC. A disk ZAP routine is 
needed to do these modifications. 

Three different sectors must be 
modified. The first location is in track 
0, sector 1. SectorjO, 1] must be loaded 
and then the relative hex location EB 
changed to the desired volume number. 
Note: all values in this article are for 
DOS 3.3. [Editoi'snote: "00" may also 
be used as a wildcard volume #, since it 
matches any "found volume.") 
Sector(0 ; l) is equivalent to location 
"B7EB" when the DOS is loaded into a 



Unfortunately, the procedure described here does not change the volume 
number of the disk with respect to the "CATALOG" command. All routines 
that use RWTS derive the volume numher from zero-page storage $2F, where 
RWTS places it The volume number comes from the Address Block at the 
beginning of each sector, which is not easily modified. [You may be able to 
modify it with a nibble editor.) It Is possible, however, to have DOS look at the 
value stored in the VTOC with only a slight modification to DOS, so that a 
CATALOG will produce the volume number you desire; instead of the actual 
initialized volume number. 

DOS stores the volume number in additional places during initialization. 



Track 1 Sector 1 Byte F6 
Track 2 Sector 2 Byte CI 



Track 2 Sector 4 Byte BF 
Track 2 Sector 4 ByteF9 
(two's complement) 
If you want a disk to produce the desired volume number, change Track 1 
Sector C Bytes BC and BD to CI 33. This changes the code from LDA $37F6 to 
LDA S33C1. This modification also requires changing Track 2 Sector 2 Byte AF 
to AD, or some other ASCII you like; now the CATALOG looks like DISK 
VOLUME-000 instead of DISK VOLUME@000. Incidentally, the above loca- 
tion is also where you change the name of the volume. 

If you don't have a DISK ZAP type of program, the MICRO utility disk now 
includes an elementary Stxtui Change pi ujpam to modify the bytes on a disk. 
For $10.00 plus $2.00 shipping and handling, you receive: Applesoft Variable 
Dump by Francois, Straightforward Garbage Collection by Bongers, COM- 
PRESS by Bauers, and Sector Change by Daley. The source is not included. 
Send orders to: Apple Utility Disk, MICRO, P.O. Box 6502, Chelmsford, 
Massachusetts 01824. 



48K system. This location is in the 
RWTS parameter list and is the volume 
number expected. After you modify 
location "EB" write the sector back 
out to the disk. 

The next location to be modified is 
in sector(l,9). If this location is not 
modified your HELLO program will not 
load correctly, producing a volume 
mismatch error. No program will be 
loaded into memory and the cursor will 
come back ready to accept input. Load 
sectorj 1,9) into memory and then set 
relative location "66" (hex) to the new 
volume number. This location, equiva- 
lent to location "AA66" in the 48K 
system, is in the DOS key word data. 
Note that the name of your HELLO pro- 
gram starts at relative location "75" 
(hex) in this sector. If you want to 



change the name of the startup pro : 
gram, make the changes at that loca 
tion on the disk. Now write sector(l,9 
back out to disk. 

The third location that should bi 
modified is in sector(17,0) in thi 
VTOC table. Load the sector inti 
memory and change relative locatioi 
"6" to the new volume number. Nov 
write this sector back out to the disk. 

In summary, the locations tha 
must be changed to the new volum 
number are as follows: 

1. sector(0,l) displacement EB (hex) 

2. sectorj 1,9) displacement 66 (hex) 

3. sectorj 17,0) displacement 6 

Contact Roland Guilbault at P.O. Box 
427, Atkinson, NH 03811. 

JMCAO 
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Questionnaire Analysis Software 



■ Microcomputer based 

Avoid the expense of contract services -- da everything in-house on 
your awn Apple 11+ microcomputer. 

» Easy data entry 

Avoid time consuming keypunching. Uses respondent-marked cards 
entered with on Optical Mark Reader (keyboard entry also possible}. 

* Comprehensive data analysis 

Sort on any variable(s), tally all responses, conduct cross tabs, 
correlations, linear regression, frequency distributions, ond mare. 

' Complete editing capabilities 

Weight items, derive composites, odd or delete items, and more. 

• Easy-to-use 

Programs are user friendly, menu driven, and interactive. No special 

computer expertise is required. 



Call or send for mare information today. 

SCIENTIFIC SOFTWARE ASSOCIATES, LTD. 

BOX ZQ6 • KIRJSflJ, KJl 5W3t 
TELEPHONE: (715) fll>5-20E,E, 



Apple 11+ is a registered trademark of Apple Computer, Inc. 
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32K CMOS STATIC RAM BOARD for SYM/AIM 

Models MB-132/32K, $299 
/16K $241,/8K $197 
Features: 

• 200ns Low Power CMOS, STATIC RAM 

• Extends your expansion connector 

• Plug compatible with 2716 EPROMS 

• First 8K are jumper selectable 

• Entire board may be bank-switched 

• G-10 Glass epoxy, Full solder mask, Gold fingers 

• Full 1-year limited warranty 



I/O EXPANSION BOARD for the SYM/AIM 

and other microcomputers thai use 6522 VIAs for I/O l/OX-1 22 $60 

and do not provide full address decoding on board. I/OX-222 $72 

This board has physical space for four additional 6522 
VIAs. and provides additional decoding for a total of 
16 devices. Connectors far all I/O lines, and further 
expansion are included. All 6522 functions are 
available, with no interference with previous 
functions of the original VIA Two versions of this 
board are available The l/OX-1 22 mounts above, and 
directly plugs into, an on-board 6522 socket, and 
relocates the original VIA ta the expansion board. 
Where there are space limitations, the l/OX-222 
uses a dip header and an 3" cable for remote 
installation- 
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REAL-TIME CLOCK/ CALENDAR $60 Write for Info. 
P.O. Box 1019 • Whittier. CA 90609 • (213)941-1383 
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your Apple? 



Find out with Apple-Cillin II 



TM 



If you use your Apple for your business or 
profession, you probably rely on it to save you 
time and money. You can't afford to guess 
whether it is working properly or not. Now you 
don't have to guess. Now you can find out 
with Apple-Cillin II. 

Apple-Cillin II is the comprehensive diagnostic 
system developed by XPS to check the 
performance of your Apple II computer system. 
Apple-Cillin II contains 21 menu driven utilities 
including tests for RAM memory, ROM 
memory, Language Cards, Memory Cards, 
DISK system, Drive Speed, Keyboard, Printer, 
CPU, Peripherals, Tape Ports, Monitors and 
more. These tests will thoroughly test the 
operation of your Apple, and either identify a 
specific problem area or give your system a 
clean bill of health. You can even log the test 
results to your printer for a permanent record. 

Apple-Cillin II works with any 48K Apple system 
equipped with one or more disk drives. 

To order Apple-Cillin II - and to receive 
information about our other products - Call 
XPS Toll-Free: 1-800-233-7512. In Pennsylania: 
1-717-243-5373. 

Apple-Cillin II: $49.95. PA residents add 6% 
State Sales Tax. 



XPS 



XPS, Inc. 

323 York Road 

Carlisle, Pennsylvania 1/013 

800-233-7512 

717-243-5373 



Apple II Is a registered trademark of Apple Computer Inc. 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 



THE TASK* MASTERS 



HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art 4 1 /?" x 6V2", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNIDISK 65/8 and 65/5 

Single and dual drive 8" and 5 1 /4" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS (File Oriented Disk System). 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 

AVAILABLE DIRECT OR 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 
Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 

HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 

HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 

HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 
FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbin Road 
York, PA 1 7403 
(717)845-4954 



Johnson computers 

Box 523 

Medina, Ohio 44256 

(216)725-4560 



Lux Associates 
20 Sunland Drive 
Chico, CA 95926 

(91 6) 343-5033 



Falk-Baker Associates 

382 Franklin Avenue 

Nutley, NJ 071 10 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Box 84 

East Amherst, NY 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11764 

(516)744-6462 



It's All Relative, Part 4 
Using Commodore's Relative Records 



by Jim Strasma 



This fourth in our series of 
articles tells how to actually 
read and write Commodore 
relative disk files. 



In last month's article we had reached 
the point of actually using relative 
files. Read on to learn safe ways to store 
and read relative file data. 

Re-opening a Relative File 

First, the relative file is opened for 
both reading and writing access: 

1170DOPEN#1,(F$),D(DD):IF DSTHEN 
1690 

The file name is in variable F$, and the 
data drive number is in DD. Those 
with BASIC 2 will need to substitute, 
as described in part 2 of this series 
(MICRO 56:53). 

Notice that this is (in BASIC 4) ex- 
actly the same statement we use to 
open a sequential file for read access. 
The file header in the diskette directory 
tells DOS which type is meant. Also 
notice the DOS error handler at the end 
of the line. When an IF-THEN state- 
ment is evaluated as true or false, it 
does so with simple math. Truths are 
worth - 1 and falsehoods are worth 0. 
If the result of the expression following 
IF is non-zero, the part of the line 
following THEN is executed. Other- 
wise, the program falls through to the 
next line instead. Thus, IF DS THEN... 
has the same effect as IF DS 
THEN... and saves three spaces. Since 
this statement is needed after nearly 
every disk command, the savings are 
considerable. If there were an error, the 
routine at 1690 closes files, tidies up, 
and exits to the menu module. Any cur- 
rent changes in the key file are lost, 
reverting to the contents it had when 



the current session began. However, 
nothing is lost from the relative file — 
all changes, with the possible excep- 
tion of the one that caused the un- 
timely exit, are preserved. 

Adding a Record 

Now, as promised, let's tackle our 
primary goal: writing and reading 
relative file data. Assuming this is our 
first use of a newly formatted data file, 
we need to add some information to the 
file. In our example mail list, each 
record is entered in two parts. After 
making sure there is room for another 
record, the key field described last issue 
is entered. Unlike many packages, Ben- 
nett's mail list requires each record to 
have a unique key. When a key is 
entered, the file is binary-searched for a 
match. If one is found, the new key is 
rejected. This protects against re- 
entering the same name. 

If the key is accepted, the user 
enters the remaining data. All entry is 
via a machine-language editor that 
filters out troublesome characters. If 
you enter relative file data without 
such an editor, do not include quota- 
tion marks in the data. They would in- 
terfere with the technique used to 
allow commas, colons, and semi- 
colons (also troublesome) in the data. 
PET owners may defang quote marks 
by adding 64 to their ASCII value, 
making CHR$(34 + 64). But since this 
doesn't work on the CBM 64, it is often 
better to just convert quotes into 
apostrophes. 

After a record is entered, the user is 
asked "Any corrections needed Y/N?". 
If so, the user is asked to specify a line 
to change, and that line of data is re- 
entered in an editing subroutine. Once 
the data is accepted, the primary and 
alternate key arrays are updated to in- 
clude the new record, a currently un- 



used record number is assigned to it, 
and the record is written to disk. 

Here is the subroutine used to write 
out the data: 

4960 REM WRITE RECORD FROM D1$ 

4970 RECORD#1 ,(RR) 

4980 IF DS THEN 1690 

4990D$=K$ + C$ 

5000 FOR I = 1 TO NF - 1 :D$ = D$ + 

QT$+D1$(I) + C$:NEXT 
501 D$ = D$ + QT$ 4- D1 $(N F) 
5020PRINT#1,D$; 
5030 IF DSTHEN 1690 
5040 RETURN 

First note that the record command 
parks the disk head at the correct spot 
in the file for this entry, as described in 
part 2. If there is a disk error here or 
elsewhere in the subroutine, a panic 
exit is made back to the menu module, 
via line 1690. As mentioned before, 
BASIC 2 users will need to call a disk 
error checking subroutine from lines 
4980 and 5030, and use an alternate 
form of the RECORD command in line 
4970. 

In line 4990 we begin to build a 
string of information to write to the 
disk. The first piece is the key field, in 
K$, followed by a carriage return 
character, in variable C$. Every other 
field in turn is concatenated onto the 
end of the data string (D$). Each data 
field is preceeded by a quote character 
(in QT$), and each field but the last is 
followed by a carriage return. The 
quote character allows all other 
characters to be read back later using an 
INPUT# statement. Otherwise, we 
would need the much slower GET# 
statement. 

You'll find a similar advantage 
when using carriage returns. Since each 
field is shorter than 80 characters, the 
INPUT # statement can read them, pro- 
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vided that each ends with a carriage 
return. This also allows longer fields, 
without lengthening the overall record. 
When carriage returns separate fields, 
there is no need to know the location of 
each field within the record. Just be 
sure fields are written and read in the 
same order. This allows the record to 
appear larger on the screen than on 
disk. In Bennett's program, if every 
field were filled, the record couldn't 
hold the resulting information. This is 
rarely a problem, because a full field 
normally alternates with a barely-used 
one, balancing out overall. The cost of 
the technique is the space wasted by 
the carriage returns. 

No carriage return is added to the 
last field because the disk already 
knows when the last character is 
reached. The IEEE-488 EOI (end or 
identify] line flashes. This changes the 
ST status variable to 64, and any cur- 
rent INPUT* finishes, just as though a 
carriage return had been added. The ad- 
ded logic in lines 5000 and 5010 that 
handle this do slow the program a bit. If 
speed is crucial, add a carriage return at 
the end, and skip the special handling. 

We only PRINT* the data to disk 
after the entire record has been con- 
catenated into the single variable, D$. 
Each record must be written with a 
single PRINT* statement. Otherwise 
each succeeding PRINT* will go to the 
next record sequentially — almost 
never what we have in mind. Even 
preceeding each successive PRINT* to 
the same record with a RECORD* 
statement wouldn't help. In that in- 
stance, each new PRINT* to the record 
would overwrite earlier PRTNT*s. This 
could be avoided only by using the byte 
extension to the RECORD* statement 
for each PRINT*, specifying where 
within the record to begin the current 
write, described in part 2. If you use the 
extension, be sure each successive 
PRINT* begins after all earlier 
PRINT#s within the record. Otherwise, 
those following the new PRINT* will 
be overwritten. (Each PRINT* always 
writes to the end of the record, regard- 
less of where within the record it 
begins the write.) 

After the disk write subroutine, our 
new information is on disk in record 
*RR. However, the mail list could 
forget that the record is on disk if the 
program halted before re-writing the 
key file. It is a good idea to update keys 
about once an hour when adding to a 
file. Safeguard changes whenever 



you've made enough that you don't 
want to redo them. 

Changing a Record 

Now let's assume we have several 
entries in a mail list, and we want to 
read one. This is done with Bennett's 
change command (even if we have no 
changes to make). It begins by asking 
for the record's key field. Enter as 
much as you remember; the nearest 
match will then be found. If it is not an 
exact match, you will be warned " * * * 
Not Found * * * ", but even so, it will be 
retrieved from disk for your viewing. 
You may then browse alphabetically 
through the file, pressing the [UP- 
ARROW] key to see the next record, 
and the [BACK-ARROW] key to see the 
prior record. Here are two subroutines 
that help: 

6220 REM. CALC NEXT RECORD 
6230 IF K9< NV THEN K9 = K9 + 1 
6240RR = K%(K9) 
6250 RETURN 

6260 REM CALC PRIOR RECORD 
6270 IF K9 > 1 THEN K9 = K9 - 1 
6280RR = K%(K9) 
6290 RETURN 

The key position of the current record 
is in K9. Going up, if it is less than the 
last active record |NV), then K9 is in- 
creased and RR is assigned the alpha- 
betically next record number to read. 
Going down, if it is greater than 1, the 
first record, (K9) is decreased, and RR is 
assigned the prior record. 

To be sure the record will fit the 
space allotted, each new or altered 
record has its length checked: 

5410 REM RECORD LENGTH CHECK 

5420 ER = 

5430 WK = LEN(K$) + 1 

5440 FOR M = 1 TO NF:WK = WK + 

LEN(D1$(M)) + 2:NEXT 
5450 WK = WK - 1 
5460 IF WK>RL THEN ER=1 
5470 RETURN 

Variable ER serves as an error flag. It 
starts equal to zero, but if the record is 
too long, it is changed to one. After the 
subroutine, the main program checks 
the value of ER to see if the record is too 
long. If so, the user must redo the last 
field altered, to make it shorter. 

If we wrote an overlong record to 
disk, the disk copy would be truncated 
at the assigned length, losing re- 
maining data. On the other hand, 



records may safely be shorter than the 
allotted space. 

One other check is made on newly 
entered postal code data. If the postal 
code is not valid in either the U.S. or 
Canada, the program accepts it, but dis- 
plays a warning. (Bennett's original ver- 
sion made the user re-enter such data.) 

Finally we are ready to read a 
relative record: 

4890 REM READ RECORD INTO D1$ 

4900 RECORD#1 ,(RR) 

4910 IF DSTHEN 1690 

4920INPUT#1,K$ 

4930 IF DSTHEN 1690 

4940 FOR I = 1 TO NF:INPUT#1 ,D1$(I): 

IFDS = 0THEN NEXT:RETURN 
4950 GOTO 1690 

Through 4930, the program is like 
the key field reader we used last 
month. The rest of the work is done in 
line 4940. Unless an error occurs, it 
completes the record read and returns 
to the main program. The reason for 
writing it this way is to save time. 
When a FOR-NEXT loop is entirely 
contained on one BASIC line, the 
BASIC interpreter doesn't waste time 
looking for line numbers. In a long pro- 
gram, the savings are considerable. 
Line 4950 will be executed only if there 
is a disk error. 

Occasionally the program may halt 
at line 4940 with a ?STRING TOO 
LONG ERROR. This means over 79 
characters were read without a carriage 
return. A retry with the same record 
always succeeds. Unfortunately, if it 
happens, the program will halt. Move 
the cursor to a blank line and type: 

GOTO 1190 

to return to the update menu without 
losing data. 

Other Features 

Before leaving the update module, 
consider its other useful features. First, 
if some data fields are left entirely 
blank when entered, the program fills 
them with default contents, as selected 
by the start-up module. This speeds 
data entry when many records share 
similar information. This typically in- 
cludes the town and state name, the zip 
code, and the leading part of the phone 
number. Here's an example: 

2270 IF I = 4 AND L$ = " " 
THEN L$ = D3$ 
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If field number four is empty, this fills 
it with default #3, as defined in the 
start-up module. 

Second, if the user botches a record 
and wants to abort the change mode, 
this is done by pressing [SHIFT + 
RETURN] when asked to "Select Field 
for Updating [1 to 8)". The line that 
does this is: 

2680 IF FS = OR W9$ = SR$ 
THEN 2780 

This line skips the update when the 
last character W9$ equals SR$, preset 
to [SHIFTED-RETURNJ. It also skips 
when nothing needs updating, as in- 
dicated by the flag variable FS still 
being equal to zero. 

Third, the mail list allows the user 
to make a quick easy copy of either the 
entire current record, or just the mail 
label portion of it, by pressing a nor- 
mally unused key, selected in the set- 
up module. Here's the line that calls for 
a mail label: 

2960IFG$ = E2$AND PZ$<>"N" 
THEN GOSUB 6490:REM PRINT 
MAIL LABEL 



E2$ has previously been set to 
whatever key you want to have trigger 
the label dump, and the check of PZ$ 
makes sure you do have a printer before 
using it. 

Fourth, hitting [RETURN] alone 
usually returns the user to the prior 
menu, thus giving an easy out if you 
wander into the wrong section of the 
program. 

In addition to the delete command 
mentioned last time, there is also a way 
to change a record's key field. This 
works by deleting the record, but 
saving the information, and then im- 
mediately re-entering it under the new 
key name. Like the delete command, it 
makes sure the user is serious about the 
change before going ahead with it. 

Perhaps the most crucial commands 
of all in the long run create and retrieve 
a sequential copy of the entire relative 
file. This accomplishes at least two 
goals. It allows the user to restructure 
the mail list, with differing field 
lengths, and record lengths, without 
losing data. Beyond this, if the user 
ever upgrades to a commercial mail list 
program, most are able to add data from 
a sequential file. Therefore you usually 



won't have to retype information. This 
is a crucial feature of serious file- 
handling programs. Using the same 
technique, this information can also be 
fed into word processing programs, 
allowing the user to write customized 
letters to large lists. 

Here is the subroutine that dumps 
the entire file in sequential order: 

3470 FOR 11 = 1 TO NV 

3480: RR = K%(II) 

3490: IFG$="R"THEN RR = AL%(II) 

3500 : PRINT "DUMPING RECORD" 

II" OF"NV 
3510 : GOSUB 4900:REM READ 

RECORD 
3520 : PRINT#5,K$ 
3530 : FOR JJ = 1 TO NF 
3540 : : PRINT#5,QT$D1$(JJ) 
3550 : NEXT 
3560 NEXT 

3570 IF DS THEN 1690 
3580 FOR 11 = 1 TO 9 
3590 : PRINT#5,EF$ 
3600 NEXT 
3610 DCLOSE#5 
3620 IF DS THEN 1690 

Note line 3490. Actually, the file can be 
dumped in two orders — alphabetical 
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by key, or by increasing record number, 
using the alternate key. Dumping a file 
in alphabetical order allows you to keep 
rarely-changing lists in very neat order. 
This is sometimes useful when using 
the print module, as we will see next 
time. However, if you use the record 
numbers for anything, such as envelope 
numbers in a church, you won't want 
them changed, and should always 
dump in record number order. 



Loss of Power 

Even if power goes off to the com- 
puter, current relative file data is usually 
preserved, with the key file reverting to 
its prior contents. On the 8050 and 
later drives, a surge protector within 
the disk system preserves the integrity 
of diskette data during loss of power. 
On the 4040 and 2040 however, a 
power loss often causes faulty data to 
be written momentarily. Depending on 
where the read/write head is at the 
time, this could be disastrous. If your 
area is prone to such outages, make 



regular backups, suspect any diskette 
in use during a power outage, and keep 
the drive doors open when not access- 
ing the disk (i.e., no files open). Better 
yet, buy a backup power supply for 
about $450. Be sure it protects the disk 
drive in addition to the computer. 



Multiple Users 

In Bennett's mail list, the relative 
file remains open until the user is done 
with the module. Usually this is no 
problem. However, leaving it open full- 
time does create a problem for those 
wanting to connect two or more com- 
puters to the same disk drive and have 
everyone use the same file. To do this 
safely, the file would be opened just 
before information from it is needed 
and closed again immediately after the 
data is read or written. This ensures 
data in the DOS buffers gets written to 
disk, so all users are working with the 
same information. If you will have 
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multiple useis, you may also want to 
add a special one-character field to the 
record itself. This would be a busy 
signal to other users. If it has one value, 
it would mean it is not in use, and 
anyone may use it. If it has another 
value, someone is looking at that 
record. In that case, no one else should 
be allowed to change it. Otherwise, 
there could be two versions of one 
record active at once. 

Single Drives 

To accommodate the needs of those 
with only a single small disk drive, 
"Update" begins by noting whether 
two drives are to be used: 

1070 IF PDODD then 1110 

PD is the drive to use for programs, and 
DD is the drive to use for data. If these 
are the same, "Mail List" assumes the 
user has a 2031/1541 disk drive. In that 
case, the user is prompted to remove 
the program diskette, insert a data 
diskette, and then press a key. Those 
with D90 series CBM hard disk drives 
may want to change this line to always 
GOTO line 1110. (Those drives are big 
enough to hold both programs and data, 
and there is no diskette to remove.) 

BASIC 4 for Everyone 

As a final note I offer an alternative 
for those with VICs, 64s, and older 
PETs. Richvale Telecommunications 
(10610 Bayview, Richmond Hill, On- 
tario, Canada L4C 3N8) and Skyles 
Electric Works (231 E. South Whisman 
Road, Mountain View, CA 94041) sell 
plug-in BASIC 4 equivalents. RTC sup- 
plies them on plug-in cartridges, called 
"V-Link" for the VIC and "C64-Link" 
for the 64. A Skyles ROM for PET is 
called "Disk-O-Pro" and a Skyles pro- 
duct for VIC is called "VicTree." I 
can't imagine using my CBM 64 
without my C64-Link; it certainly 
eases the work in adapting large pro- 
grams, such as Bennett's mail list, 
originally written for PET BASIC 4. 
First reports on the Skyles products are 
also favorable. 



Contributing editor Jim Strasma is 
assistant professor of computer science at 
Lincoln College. You may reach him at 
1280 Richland Ave., Lincoln, IL 62656. 
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By Loren Wright 



ANDs and ORs, PEEKs and POKEs 

VIC and Commodore 64 owners 
may be a little puzzled about all the 
mysterious programming required to 
control video and sound on their 
machines. Most of this is accomplished 
with four BASIC functions, and 
understanding how they work will 
make things a lot easier. 

PEEK and POKE are fairly easy, 
since their names actually describe 
what they do. PEEK means you are 
looking at a particular memory loca- 
tion and returning with the number 
found. PEEK(7680) returns the number 
found in memory locaton 7680. POKE 
works the other way around; you take a 
number and stick it into a specified 
memory location. POKE 7680,0 puts 
an '@' character (the one represented 
by 0) in the upper left comer of an 
unexpanded VIC screen. The numbers 
involved may be BASIC expressions, as 
long as the addresses are kept between 
and 65535 and the numbers are kept 
between and 255. Don't go POKEing 
numbers into memory at random; 
many combinations will cause your 
computer to crash. 

All the control registers of the VIC, 
the VIC II, and the SID are treated by 
the computer as normal memory loca- 
tions. You can program a great number 
of the chips' functions using PEEKs and 
POKEs with these memory locations. If 
you look carefully at the VIC Chip por- 
tion of this month's VIC Data Sheet 
(page 103], you will see that controlling 
the chip is not as simple as POKEing a 
number into an address. For instance, 
$900F (36879) actually controls three 
different things: the screen color, 
reverse mode, and the border color. 
How do you change the screen color 
without affecting reverse mode or the 
border color? One way is to know what 
those are supposed to be and POKE the 
appropriate number. But you do need a 
way to figure out what the border color 
and reverse mode statuses are. 

Each memory location is actually a 
byte consisting of eight bits. Each one 
of these bits can be either on (1| or off 
(0). Together they make up a binary 
number, which converts to decimal by 
adding in increasing powers of two, 



starting at the right end. If the right- 
hand bit is on you add in 2 to the 
power, or 1. This continues 2, 4, 8, 16, 
32, 64, until you reach 128 (or 2 to the 
7th power) at the left end. If there is a 1 
in the binary number, then add in that 
power of two. The bits are numbered 
according to the power of two they 
represent. 

The 16 possible screen colors for the 
VIC all can be represented in four bits. 
Color is represented by 0000, while 
color 15 is represented by 1111. To fit 
into bits 7 to 4 of the VIC register, you 
must multiply the color by 16, which is 
the same as sticking four 0's at the 
right end of the binary number. For 
color 2 [or red) you would use 16*2, or 
32. Now you know what number to 
stick in. However, if you just POKE 
36879,32, you will get a red screen 
with a black border and all the 
characters reversed. You can preserve 
the original border color and reverse 
mode status with the AND function. 
AND is a Boolean function usually 
used in a BASIC IF... THEN statement 
(i.e., IF X = 5 AND Y>0 THEN GOSUB 
500). If both conditions on either side 
of the AND are satisfied then the whole 
expression is true; otherwise the ex- 
pression is false. PET BASIC, unlike 
most other BASICs, allows the AND 
function to work on the bit level. Like 
the BASIC expressions above, a bit is 
considered true if it is 1 and false if it is 
0. The two numbers compared by the 
AND function are compared bit by bit 
at each bit position. If both bits at a 
given position are 1, then the resulting 
number will have a 1 there; otherwise 
that bit position will get a 0. Consider 
the following example: 

10101011 
AND 00001111 



00001011 



The equivalent BASIC statement is 
'171 AND 15'. In PET BASIC, this 
equals 11, the result of this bit-level 
AND operation. In other BASICs, it 
would equal 1 or -1, indicating that 
both 171 and 15 were non-zero and 
therefore 'true. ' Notice that by ANDing 
with 15, you have preserved bits 3-0 
exactly the way they were in the first 
number. If you wanted to preserve bits 
7-4, you would use 240, or ' 1 1 1 10000' , 



instead. ANDing with 15 is exactly 
what you want to do to preserve the 
border color and reverse-mode status. 
Combining this with the color 
(calculated above] involves the OR 
operation. 

The OR operation also is used most 
often in BASIC IF... THEN statements, 
such as 'IF X$ < "A" OR X$ > "Z" 
THEN PRINT "NOT A LETTER": 
RETURN'. If either (or both) of the ex- 
pressions separated by the OR is 
evaluated as 'true,' then the overall ex- 
pression is also true. Only if both are 
false, is the result false. PET BASICs 
OR also operates on the bit level. If 
either of the corresponding bits in the 
two numbers is 1, then the result will 
have a 1 in that position. 

00001011 
OR 00100000 



00101011 



This example has successfully com- 
bined the screen color (red = 2) with the 
existing border color |cyan = 3) and 
reverse-mode condition (off = l). To 
make sure that this works on a general 
example, I will run through it step by 
step. 

PEEK(36879) = xxxxxxxx 
(may be any number to 255) 

xxxxxxxx AND 15 = 0000xxxx 

yyyy * 1 6 = yyyyOOOO 
(yyyy-any color number to 15) 

OOOOxxxx OR yyyyOOOO = yyyyxxxx 

POKE 36879, yyyyxxxx 

If Y is a color number to 15, then 
one BASIC expression will change the 
screen color without disturbing the 
border color or the reverse mode: POKE 
36879, PEEK(36879) AND 15 OR 
|16'YJ. 

Frequently you want to change just 
one bit in a register. For instance, bit 7 
of VIC register 36874 acts as an on/off 
switch for the VIC's voice 1. To turn 
this bit on without affecting the 
frequency: POKE 36874, PEEK(36874) 
OR 128. To turn the bit off: POKE 
36874, PEEK(36874) AND 127. 

JMCftO 
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How to chart your company's fortune 
without spending one 



It's a fact. A single chart or graph can tell you instantly what it 
takes hours to interpret from printouts or other raw data. 

Now, with the Strobe 100 Graphics Plotter and Software 
package, you can create superb hardcopy graphics directly 
from your computer. And you can do it for a fraction of the cost 
of most other systems. 

The Strobe System transforms complex data into 
dynamic, colorful visuals with a 
few simple commands from your 
computer. Charts and transparen- 
cies that once took hours to pro- 
duce are plotted within minutes. 
Information can be presented as 
bar charts, pie charts, curves or 
isometrics in a variety of colors. 
And with a resolution of 500 
points per inch, the Strobe 100 
matches or surpasses the quality 
of plotters costing thousands of 
dollars more. 




You can also save and modify your graphics through 
Strobe's menu-driven programs. A broad selection of 
software — including data base management-compatible 
programs — is now available. 

When the Strobe Graphics System is interfaced to your 
computer, an 8-1/2 x 11 inch sheet of paper can speak any- 
one's language — visually. Visit your local dealer and learn 
how to start charting your for- 
tunes today. Because a perspective 
on the present can also be your 
window on the future. 




The Strobe Graphics System 

Seeing is believing 



Strobe Inc. 

897- 5A Independence Avenue 
Mountain View, CA 94043 
Telephone 415/969-5130 
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C0MPJ1TUI£ INC. 




Your Salvation 

In The Sea Of 

Inflation. 



P.O. Box 2025 
Corona, CA91720 
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ASSEMBLERS 






List ARK 






A.L.D.S. 125.00 89.95 






LISA 79.95 59.95 






LISAEDPAK 119.95 79.95 






MERLIN 64.95 54.95 






COMMUNICATIONS 






List ARK 






ASCII 






Expresso Pro 1 29.95 99.95 






DATA 






Capture 4.0 64.95 49.95 






VISITERM 100.00 79.95 






Z TER M PRO 1 49.95 1 09.95 






DATABASES 


u 




List ARK 






dBASEII 695.00 499.95 




[I 


DB MASTER 229.00 1 59.95 






DB Utility #1 99.00 69.95 






DB Utility #2 99.00 69.95 






PFS 125.00 89.95 






VISIFILE 250.00184.95 






EDUCATIONAL 






List ARK 






Know 






Your Apple 34.95 29.95 






Mastertype 39.95 29.95 


1 sB 




Speed 






Reading 






Courseware 99.95 79.95 


Li 




Typing Tutor II 24.95 19.95 




■; 1 


FINANCIAL MODELING 






List ARK 






Calestar 1 45.00 1 09.95 






Desktop Plan II 250.00 1 84.95 






Visicalc 250.00184.95 
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GRAPHICS 


List ARK 




The Artist 


79.95 59.95 




EZ Draw 


49.95 39.95 




GAS 


75.00 54.95 




Graphics 






Magician 


59.95 44.95 




Hires Secrets 


125.00 89.95 




Visiplot 
HARDWARE 


200.00 1 59.95 
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List ARK 




Applicard Bmhz 595.00 395.00 




Graphics Plus 


149.95 99.95/ 




Keyboard Plus 


.99.95£935 




Kraft Joystick 


643549.95 




Lower Case 






Plus 


64.95 49.95 




Lower Case 






Plus II 


24.95 14.95 


1 


Micromodem 1 






w/term. pak 


409.00 319.95 




Microsoft 






1 6K Card 


99.95 79.95 




Microtek 




1 


Parallel 






Interface 


139.50 64.95 




Videx Combo 


425.00 250.00 




MAILING LISTS 






List ARK 




Address Book 


49.95 39.95 




1 st Class Mail 


74.95 54.95 




Magic Mailer 


69.95 




Magic Mailer 


69.95 54.95 




MailMerge 


250.00189.95 


1 





1 PRINTERS 










List 


ARK 




C. Itoh 








Prowriter 85 1 595.00 475.00 




C Itoh 








Prowriter 1 550 995.00 750.00 




C. Itoh 








Starwriter F1 


1395. 


1500. 




NEC 








NEC 8023 


695.00475.00 




UTILITIES 










List 


ARK 




Apple Doc 


39.95 


29.95 




Applewriter 








Preboot 


19.00 


15.00 




The Dictionary 


99.95 


79.95 




EPFIV 


79.95 


59.95 




Disk Recovery 


30.00 


21.95 




Dos Boss 


24.00 


17.95 




Dosource 


39.95 


24.95 




Locksmith 


99.95 


69.95 




Super Disk 








Copy III 


30.00 


21.95 




Tip Disk #1 


20.00 


14.95 




Utility City 


29.50 


21.95 




Visicalc 








Preboot 


49.95 


39.95 




Watson 


49.95 


39.95 




WORD PROCESSORS 






List 


ARK 




Exec. Sec. 


250.00 189.95 




Magic Window 


99.95 


79.95 




Magic 








Window II 


149.95 119.95 




Pie Writer 


149.95 


99.95 




Screenwriter I1 129.95 


79.95 




Super 








Text 40/80 


175.00129.95 




Word Handler 


199.00149.95 




Wordstar 


495.00 369.95 



IF YOU DONT SEE WHAT YOU NEED, GIVE 

US A CALL AND WE'LL TRY TO 

GET IT FOR YOU! 

CALL FOR FREE CATALOG 

(714)735-2250 



We accept VISA/MASTERCARD, Personal checks 
(allow 1 days to clear) or COD (2.00 charge). Please 
include 39b for shipping (2.00 min.) or 59b for blue 
label (3.00 min.). Calif, residents add 69b sales tax All 
items are new and carry manufacturers warranty. 
Prices and availability are subject to change without 
notice. 
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You Pick The Disk System, MegaFlex Controls It! 



WITH SOFTDRIVERS FOR 
A FLEXIBLE FUTURE! 

MEGAFLEX— a universal 
floppy disk controller and 
modern alternative to the 
Apple drive system offering 
increased storage, im- 
proved reliability and . . . 
FLEXIBILITY. 

Enjoy megabytes of 
online storage with your 
choice of micro, mini, or 
maxi drives— or even 6Mb 
with the Amlyn cartridge 
pack! Ideal for high- 
capacity storage now, 
winchester-disk backup 
later. 

The MEGAFLEX secret is to autoboot soft- 




BRIDGE THE APPLE 
FORMAT BARRIER! 

The MEGAFLEX diskette 
does what Apple's 
cannot— read and write 
diskettes from other 
computers! Software- 
controlled industry-stan- 
dard IBM 3740 or System 
34 type formats allow the 
MEGAFLEX library of refor- 
matting software to read 
and write Altos, Radio 
Shack, Osborne, and IBM 
PC diskettes. (Call for the 
latest software details.) 
MORE STORAGE, MORE 
UNIVERSAL FEATURES, LOWEST COST 
MEGAFLEX with 8" maxi or high density 5.25" 



mm 



drivers that match the needs of your drive system, minis gives you 1 .2 Megabyte of formatted data per 
All hardware functions are software-controlled, diskette for 8 times the file and data size! 



MEGAFLEX can match new drive capabilities with- 
out hardware changes. Drive-dependent ROMs 
have been eliminated. 

APPLE ///? OF COURSE!! 

MEGAFLEX is compatible with BASIC, CP/M, 
Pascal, VISICALC, SOS and DOS-emulation on the 
Apple III, Apple II, Franklin Ace and Basis. All lan- 



MEGAFLEX offers flexible software choices: 

• data rate (250/500 Kbits per second), 

• single and double density recording, and 

• single/double sided drive operation (max 
4 drives). 

MEGAFLEX has the lowest chip count of any 
controller today! This means less power, a cooler 



guage features and operating system commands Apple and better reliability. 

(LOAD, BRUN, etc.) are standard. If you can oper- Lowest price, highest performance, that's 

ate Apple drives you can op- k a h^m a gn jHp||^»- MEGAFLEX! 

erate MEGAFLEX! Your 41 I i|B|A|ll^ I 11722 sorrento valley road 

Apple software will run ff^WW I I EI\ feT^i," 

OUt modification tOO. A Division of SVA TWX 910-335-2047 APPLE TWO SDG 
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Product Name: 
Equip, req'd: 
Price: 



Manufacturer: 



Foxygraf (tape version) 

TRS-80C, 16K 

$29.95 cassette 

$34.95 disk 

Computerware 

4403 Manchester Ave. 

Encinitas, Ca 92024 
Description: Foxygraf is a graphics development program 
for the TRS-80C. Its major function is a screen drawing 
program that allows simple selection of page and screen. 
Graphic screens can be easily interfaced with machine- 
language routines. Files may be stored on tape. 

Pluses: Written in relocatable machine code, Foxygraf is 
compatible with the RS disk system! In addition, memory 
moves and jump to machine-language subroutines are 
allowed. A HELP command displays all available options. 
The program teaches much about the 6847 Video Display 
Generator (VDG). 

Minuses: None noted. 

Documentation: A 56-page manual provides complete 
documentation of the program including major entry and 
patch points. A discussion of the VDG is included. 

Skill level required: Beginners will have no trouble using 
the screen drawer, but a knowledge of assembly program- 
ming is required to get the most from the software. 

Reviewer: John Steiner 



Product Name: 
Equip, req'd: 



Product Name: 
Equip, req'd: 
Price: 
Manufacturer: 



Turtle Graphics 

Any VIC 

$40.00 

Human Engineered Software 

71 Park Lane 

Brisbane, CA 94005 
Description: An easy-to-leam graphics language along the 
lines of LOGO. 

Pluses: The easily installed cartridge offers few commands 
and uses letters instead of whole words. Turtle Graphics is 
a painless way to learn to write short programs. The 
manual covers the commands well. 

Minuses: VIC's high-resolution drawing capability is 
totally ignored, which limits resolution to 22 by 24 dots. 

Skill level required: Even pre-schoolers should be able to 
learn this language. 

Reviewer: Jim Strasma 



Price: 
Manufacturer 



Authors: 



The Arithmetic Classroom: Decimals 

Apple II Plus or Apple II |with 

Applesoft], DOS 3.3 

$49.95 

Sterling Software 

Sterling Swift Publishing Co. 

7901 South IH-35 

Austin, TX 78704 

Patricia M. Mullinix, David N. 

McClintock, and Fawzy T. Ibrahim of 

Courses By Computers, Inc. 
Description: Decimals is one of a series of eight programs 
covering addition, subtraction, multiplication, division, 
fractions, and decimals. This objective-based tutorial has 
plenty of practice exercises but is not just a drill program. 
At the end of each lesson is a mastery test. 

Pluses: The tutorial approach allows each type of problem 
to be explained first. Good feedback is provided; correct 
answers prompt encouraging messages, incorrect answers 
prompt hints. The program also covers converting words 
("two tenths") to numeral format. 

Minuses: Program covers converting mixed fractions to 
decimals, but only fractions with powers of ten 
denominators. 

Documentation: Well-written manual has clear instruc- 
tions, practice (paper) exercises with answer key, and 
achievement record forms. Disk programs are easy to use. 

Skill level required: An understanding of fractions. No pro- 
gramming required. 

Reviewer: Mary Gasiorowski 



Product Name: 



Equip, req'd: 

Price: 

Manufacturer: 



Software Development System 
SDS80C 

TRS-80 Color Computer with printer 

$89.95 

The Micro Works 

P.O. Box 1110 

Del Mar, CA 92014 
Description: This product is a complete Editor, 
Assembler, and Debug Monitor in a program pack for the 
Color Computer. ABUG, the debug monitor, is a short 
version of CBUG, their excellent stand-alone monitor. It 
has memory examine/change, display/change registers, 
two ways of entering a user program, plus cassette 
utilities. The powerful line-oriented screen editor has been 
optimized specifically for editing assembly-language 
source code. Editor features include twelve cursor move 
options, string search, line insert/delete, plus block 
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move/copy. The full-feature assembler section has condi- 
tional assembly, evaluation of complex expressions, and 
optional direct-object tape generation. The assembler pro- 
vides a variety of printer options and allows single-step 
screen assembly. 

Pluses: A maximum of software development is given in a 
minimum of time. The assembler is the equal of most pro- 
fessional assemblers, allowing the experienced program- 
mer to use all "tricks of the trade" in developing 6809 
software. 

Minuses: A few minor facets would be disturbing to an ex- 
perienced programmer; i.e., a program made up of uncon- 
nected modules must be handled as separate modules and 
then installed as separate blocks of object code. 

Documentation: The 40-page booklet is clear and 
thorough. In addition, the booklet gives a concise discus- 
sion of 6809 programming techniques, including a good, 
primer on position-independent code. 

Skill level required: Novice assembly-language progammer. 

Reviewer: Ralph Tenny 



Product Name: Alphabet Squares 

Equip, req'd: Apple II with Applesoft, 48K RAM, 

and DOS 3.3 
Price: $29.95 

Manufacturer: Versa Computing, Inc. 

3541 Old Conego Rd., Suite 104 
Newbury Park, CA 91320 
Description: Young children can practice initial consonant 
and vowel sounds using keys, paddles, or joystick to move 
a happy-face cursor to one of the three hi-res pictures of 
letters. The correct one chosen is then redisplayed full- 
screen. This continues until all letters have been correctly 
matched. 

Pluses: Kids like it and it reinforces letter sounds. Attrac- 
tive graphics use color intermixing for varied shades and 
textures. Not copy protected; modifiable BASIC code. 

Minuses: More could be done to maintain enduring in- 
terest. Music is marginal. Paddles usable but awkward; 
keyboard OK; joystick is best. Not protected against 
RESET or CTRL-C. 

Documentation: Durable, plastic-covered storage folder is 
attractive and adequate. 

Skill level required: Ability to recognize letters by sight. 

Reviewer: Jon R. Voskuil 
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For Lab or 
Original Equipment 



FEATURES: Efficient 30kHz switching frequency • Four Models satisfy most applica- 
tions 'Years of trouble free service "Each side AC line fuse protected "Tele-Tale LED "Pwr- 
On" Panel Indicator • Three separate voltage outputs * Metal enclosure provides physical and 
EMI protection • For experimental use or permanent power source* Soft start feature pro- 
tects critical circuits* Parallel operation acceptable for higher current needs •Push-in termin- 

-,1, „ t w j re or test | ear j » Light-weight, easy to use • AC line cord permanently attached 

- i»<u*>. .Jiabte power source for a variety of uses and applications* 48 hour burn-in assures 
MTBF of 3/i years, reasonably priced at 51.90/watt * Full one year guarantee •2-toneano- 

rent outputs on specif orrlw» Input surge protection » Auto*- 

» + rtistoraltofi*UL t 



SPECIFICATIONS: 

Regulation: ±0.1% Max for 10% mput charge •load Regulation. 10 2% Max on#1 Out 
put » Ripple Ntf MTIVp. 1% PP Max.* Over Voltage Protection • Reverse Polarity Protection 
■ Compact, only 1W x 4" x 2%" • Fast load transient response • 5 volt adj. ±10% • DC Out- 
put: 42 Watts continuous • 70% Efficiency • New Push-On type terminations. 
SCHOOLS- LABS: QUANTITY PRICING ON REQUEST 



Lcom 



inc 1 545 Osgood St. Unit 1 1 S. No. Andover, MA 1 845 



Nam* (Plai 

Address 

City 



ORDER INFORMATION 



Oty. 



Output #1 



Output #2 



Output #3 



Information on other switcher models 



Order First Unit ■ 
Second or More' 



$99.50 
$79.60 



OFFER EXPIRES April 30. 1983 

Sub-Total 

Mass. res add 5% Tax 

Shipping & Handling _ 
TOTAL 



4,50 



Charge to: □ MasterCard O Visa □ American Express □ Check/Money Order 

Card # - Exp. Date 

Signature , 



Call Toll Free- 1-800-373-1455; Within Massachusetts- 6T7/682-6936, 
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UV EPR0M ERASER 

$49.95 

• HOBBY MODEL 

INDUSTRIAL MODEL 

QUV-T8/2N 

$68.95 

WITH TIMER AND 

SAFETY SWITCH 

QUV-T8 / 2T 
$97.50 



* Erases over 15 EPROMS - 15 tnlnutss ansa time 

* Element Ma 7700 hotin 

* Intensity: 12V/J 'Acm'atl" 

* Emas all UV EPflOMS (271E. 2732. 2516. 2532, etc.) 
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PROGRAMS: 2508, 2516, 2532, 2716, 27C16, 27C32, 

2732A-, 2758, 8748, 8749H, 8748H 
OPTIONAL MODULES: 2564, 2764, 8755A, 8741 

* STAN0 ALONE, CRT, OH COMPUTER CONTROL 

* UPLOAD/ DOWNLOAD IN MOTOROLA OR INTEL HEX FORMAT 

* MICROPROCESSOR BASED * 4 K INTERNAL RAM 

* 90 DAY PARTS 4 LABOR WARRANTY ON ALL PR00UCTS 

SOON TO BE RELEASED: 

PR0MPR0-8 128K Version StH9. 
MONEY BACK GUARANTEE 



INTELLIGENT 

PROGRAMMER 

STAND ALONE 

RS-232 

* RELIABLE 

* EASY COPY (No exierri.il 

equipnienl needed) 

* USER FRIEN0LY 

COMPATIBLE: 

IBM PC, TRS-80, APPLE, CPM, 

FLEX, TEKTRONICS, MOS 

(MCS-48) 

PROGRAMMING 

PRICE INCLUDES 
PERSONALITY MODULE 



$489.00 



LOGICAL DEVICES INC. 

781 W. OAKLAND PARK BLVD. • FT. LAUDERDALE. FL 3331 1 

Phone Orders (305) 974-0967 • TWX: 510-955-9496 
SEE US AT COMDEX SPRING - BOOTH #3019 
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A Versatile Programming Utility for the Apple II. 
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I PRINT USING 




SORT 



Now, from the programming experts at S.D.S., 
an easy-to-use way of putting the POWER 
and SPEED of machine language routines in 
YOUR OWN APPLESOFT PROGRAMS! 

ROUTINE MACHINE does all the work foryou - 
no knowledge of machine language pro- 
gramming, whatsoever, is required. Simply 
choose the routine you need from an ever- 
growing library, and Routine Machine will 
effortlessly put them in your progra m, and 
all done transparently! No need to be aware 
of or bother with BLOAD's, HIMEM:, etc. 

Best of ail, with just this starter package, you'll 
have the routines to put High Resolution 
graphics and sound in your programs im- 
mediately! Also included is a versatile print 
using module to banish the "decimal point 
demons" forever! To round out the package, 
we've also included powerful search and 
sort routines (for single dimension arrays; 
Search; 1000 elements in 1 second Sort: 1000 



OUR GUARANTEE 

IF YOU DON'T SAVE MORE THAN THE PUR- 
CHASE PRICE OF "ROUTINE MACHINE' IN 
YOUR OWN PROGRAMMING TIME IN THE 
FIRST 30 DAYS YOU OWN IT, SIMPLY RE^ 
TURN IT FOR A COMPLETE REFUND, NO 
QUESTIONS ASKED! 



elements in 90 seconds), and a number of 
other often-needed routines as well (30 
routines in all). 

Additional library disks titled "Ampersoft Pro- 
gram Library" are already available. 

Some of the other routines in The Routine 
Machine (plus others not listed) are: 

SWAP: Swaps two string or numeric values. 

TEXT OUTPUT: Prints with no "word break" on 
screen. 

STRING OUTPUT: Input any string, regardless of 
commas, etc. 

ERR: Stack fix for Applesoft ONERR handling. 

GOTO, GOSUB: Allows computed state- 
ments. Example: GOTO X #5 or GOSUB 
X #5. 

BLOAD: Load any binary file 5 times faster 
than normal. Hi-Res pictures load in 
under 2 seconds. 

RESET HANDLER: Treats RESET with ONERR; or 
will RUN or reboot disk. 

HI-RES ASCII: Character set for mixing text 
Hr-Res graphics. 

TURTLE GRAPHICS: Versatile Hi-Res graphics 
routines for easy drawing of Hi-Res 
figures. 



P.O. BOX 582 . SANTEE, CALIFORNIA 92071 . TELEPHONE: 714/562-3670 
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Name: Stock Momentum 

Studies 

System: Apple II 

Memory: 48K 

Language: BASIC, assembly 

language 
Hardware: Two disk drives, 
printer, 2K 
EPROM 
Description: The user can 
chart any stock, commodity, 
or index in a variety of modes: 
differentials (momentum), 
moving averages, exponential 
averages, percentage changes, 
or multiple overlays. It permits 
all parameters and time frames 
up to one year of daily data ad- 
justable to user's requests. 
Price: $525.00 

Includes 2K EPROM, system 

master, data, two 

communications disks, and 

manual. 
Author: Kenneth Troy, 

Harrison Folan 
Available: 

Troy-Folan Productions Inc. 

29 Miller Road 

Wayne, NJ 07470 

Name: C64 File and 

Filewriter/ 
Filereader 

System: Commodore 64 
Language: BASIC 
Hardware: Datasette 

recorder, printer 

optional 
Description: C64 PILE is a 
multi-purpose database 
management system that will 
allow the user to construct, 
sort, maintain, and print out a 
relatively wide range of data 
tvpes. Filewiitei/Fileieadei 
iiiio .••<! the user to produce data 
files on casa^n.. -e? from the 
information typed m aiiu _. . 
any data files stored on 
cassette tape. 

Price: $9.95 - C64 File 

$6.95 plus $2.00 shipping - 

Filewriter/Filereader 

Includes software cassette 

and documentation. Also 

includes data tape for 

C64 File. 
Author: Kinetic Designs 

Russell Grokett 
Available: 

RAK Electronics 

P.O. Box 1585 

Orange Park, FL 32073 



Name: Data Fax 

System: Apple II, Apple II 
Plus, Apple m, 
IBM PC 
Memory: 64K 
Language: Pascal 
Hardware: One disk drive 
Description: This free-form 
relational filing system is 
modeled after the standard 
folder-page "manual" system 
(i.e., manilla folders, etc.). It is 
simple to use to keep track of 
unstructured information. 
Price: $249.00 - Apple 

80-column 

$199.00 - Apple 40-column 

$299.00 - 1MB PC 

Includes 250-page manual. 
Available: 

Link Systems 

1640 19th Street 

Santa Monica, CA 90404 

|213) 453-1851 



Name: The Menu Maker 

System: Apple II Plus 
Memory: 48K 
Language: Applesoft 
Hardware: One disk drive 

minimum 
Description: The Menu Makei 
will help you create and edit 
disk program menus. It allows 
up to 30 items per menu and 
up to 15 sub-menus plus full 
editing: add, delete, change, 
and rearrange display order. 
The Menu Makei generates a 
BASIC program you can modify. 
Price: $19.95 

Includes disk and user notes. 
Author: Larry Houbre, Jr. 
Available: 

L.R.H. Enterprises 

358 Ashley Blvd., lw 

New Bedford, MA 02746 

<*171 997-7346 



Name: HBJ Computer 

SAT® 
System: Apple II, Apple II 

Plus 
Memory: 48K 
Language: BASIC 
Description: Now your Apple 
can help you cram for the 
Scholastic Aptitude Test 
(SAT). Computer SAT is a 
computer package that leads 
students step-by-step through 
the test preparation process. 



The program diagnoses the 
student's strengths and weak- 
nesses, prepares a study plan, 
and guides him/her through a 
comprehensive set of study 
exercises. 
Price: $69.95 

Includes 470-page textbook, 

"How to Prepare for the 

SAT," 50-page user's 

manual, two double-sided 

diskettes. 
Available: 

Harcourt Brace Jovanovich, 
Inc. 

1250 Sixth Avenue 

San Diego, CA 92101 

and leading bookstores and 

computer stores 



Name: Gusher™ 
System: Apple II, Apple HI, 

IBM PC 
Memory: 64K - Apple II and 
IBM PC 
128K - Apple m 
Language: Pascal 
Hardware: Two disk drives 
and printer and 
interface 
(132-columnJ 
Description: This specially 
designed accounting package 
for oil- and gas-well operators 
automates joint interest billing 
and revenue distribution. It 
calculates revenue distribution 
from production runs for each 
revenue owner, joint interest 
statements for all working- 
interest owners, and A.F.E. 
reports. The package also gen- 
erates well pay-out reports and 
tracks the balances of revenue 
and working-interest owners. 
Invoices from and payments to 
vendors are also tracked. Addi- 
tional reports provided include 
1099 reports, list of expense 
categories, list of vendors and 
vendors' invoices. The pack- 
age also prints checks. 
Price: $995.00 

Includes complete 

documentation. 
Available: 

High Technology Software 
Products, Inc. 

P.O. Box 14665 

2201 N.E. 63rd St. 

Oklahoma City, OK 73113 

(404) 478-2105 



Name: Super Image 
Saver/Printer 
(SISP) 

System: PET/CBM 2001, 
3000, 4000, 8000 
Memory: 16K RAM 
minimum 
Language: BASIC original, 
Upgrade, or 4.0 
Hardware: Any Commodore 
graphics printer 
w/programmable 
line spacing 
(optional) 
Description: If you like or need 
to draw pictures, charts, 
schematics, diagrams, etc., on 
the PET/CBM screen using 
PET's graphics, but can't stand 
typing in the program, then 
SISP is for you! SISP lets you 
draw simple or complex full- 
screen pictures, save, print, 
modify, and recall them with 
ease. The program comes fully 
documented and steps the user 
through the complete process. 
Price: $9.95 cassette 
$14.95 on 4040/2031 disk 

Author: Louis F. Roehrs 
Available: 

TELE-TREX Software 
Systems 

4 Waring Lane 

Littleton, CO 80121 

(303) 770-8144 



Name: The Dimensional 
Analysis of the 
Great Pyramid 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: One disk drive 
Description: Programs include 
modern and ancient measure- 
ments of the three chambers, 
principle triangles, and coffer. 
Volume magnitudes are em- 
phasized. The programs are a 
mixture of theory and history, 
based on 25 years of research. 
Programs on Archimedes' Cat- 
tle Problem and Rhind Mathe- 
matical Papyrus are included. 
Price: $25.00 
Includes diskette. 



Available: 
Louis K. Bell 
P.O. Box 7 
Augusta, GA 30903 
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"It's like old times again in the mutual funds game. 

Figures for the top equity funds of 1982 are just short of 

unbelievable. Sales of fund shares are soaring. " 

"Heard on the Street" 
Wall Street Journal, 1/6/83 

GET A FULL DAY'S JUMP ON THE MARKET. 

FINALLY, A TOOL TO HELP YOU MAKE 

MORE INFORMED DECISIONS ABOUT 

MUTUAL FUND INVESTMENTS. 

FUND MASTER TC IS HERE! 

*Don't wait for next day's newspaper! 

* Automatic data retrieval through Dow Jones News Retrieval 
Service (TM) provides ability to enter data on day of market 
closing. No additional program necessary. 

*Gain the ability to follow and chart the performance of up to 
100 mutual funds and several market timing indicators. Funds 
and indicators are charted against an exponentially smoothed 
moving average. 

*Automatic ranking of funds according to momentum and rel- 
ative strength. 

* Analysis useful for long term investments and switch trading. 
*Manual entry for system without modem. 

SYSTEM CONFIGURATION: Apple II+(TM), with 48k; 
Apple III (TM); Franklin Ace (TM); 1-2 disk drives. 
Optional: Hayes Micromodem II (TM); Printer. 
Special introductory offer: 

$150.00 until April 10, 1983. 

$1 75. 00 after April 10, 1983. 

Order today: Time Trend Software 
P.O. Box 128 
N. Billerica, MA 01862 

Visa and Mastercard accepted; include card number, expiration date and signature. 

Mass. residents add 5% tax. 

Add $2.50 domestic shipping charges. 

Add $5.00 overseas shipping. 

Further information available on request. 



Software Catalog {continued) 



HIGH RESOLUTION GRAPHICS 
LIGHT PEN FOR APPLE II™ COMPUTERS 



The LPS 11 is the only true High Reso- 
lution Light Pen System with full soft- 
ware support for the Apple II Com- 
puter. High Resolution pictures, dia- 
grams and other graphics can be 
easily drawn directly on the screen 
of the Apple II. The pictures shown 
here were created with the LPS II and 
easy-to-use Applesoft programs 
which are included on the DOS 3.3 
diskette. PENTRAK.®the Light Pen 
driver, lets you easily create 
your own Applesoft 
programs for Light 
Pen graphics. PEN- 
PAINTER*is a color 
sketching system 
which allows the 
user to create an 
infinite variety of 
patterns to be used 
for filling-in the 
sketched areas. 
Area refilling allows 
various combina- 
tions of patterns to 
be tried and changed. 
Hi-Res Text generation is 
a standard feature of the 
PENTRAK driver, allowing 
simultaneous use of multiple 
user-defined character sets. The 
complete user's manual includes in- 
structions for installation and check- 
out as well as basic and advanced 
Applesoft light pen programming. 



ne Playing 
cation " ' 




Possible Applications: 

• Computer Aided Design 

• Computer Aided Drafting 

• Logic Design/Simulation 

• Animation and Game Playing 

• Graphic Arts 

• Menu Selection 

• Process Control 

• Business Graphics 

• Circuit Analysis 

• Interactive Education ' 
• Text Editing 

LPS II Features Include: 

• True Hi-Res 
Resolution 

• PENTRAK Ma- 
chine Language 
Software 

• PENPAINTER 
Software System 
with area fill/ refill 

• Four Complete 
Hi-Res Drawing 
Systems 

• Menu Selection 
Programs 

• Hi-Res Text 
Generator 

• Installation/Opera- 
tion/Programming 

Manual • Many Complete 
Application & Sample Programs 
• Operates in All Screen Modes 
Installs Easily into I/O Slot 7 
Installation/ Checkout/Diagnostics 
90-Day Limited Warranty 



LPS II and PENTRAK are trademarks of Gibson Laboratories, Irvine, CA 
Apple II and Applesoft are trademarks of Apple Computer, Inc. 

GIBSON LABORATORIES 

23192-D VERDUGO DR. • LAGUNA HILLS, CA 92653 • (714) 770-3088 



Name: SpeedSTAT 

(Volume 1: 
Frequencies and 
Ciosstabs) 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Applesoft or 6502 

Assembler 
Hardware: Two disk drives 
Description: An extremely 
easy-to-learn, easy-to-use 
statistics package designed for 
non-programmers that has a 
capacity of over 10,000 data 
points and over 30 different 
statistics measures. Speed- 
STAT is a state-of-the-art, 
general purpose business and 
marketing analysis tool. 
Price: $250.00 
Includes diskettes, user- 
written manual, cloth- 
covered slipcase. 
Author: Shaffer & Shaffer 
Available: 
SoftCorp International 
229 Huber Village Blvd. 
Westerville, OH 43081 
800-543-1350 (toll free] 



Name: Data Manager 

System: VIC-20, COM-64 
Memory: 8K expander 
Language: BASIC 
Hardware: Disk drive and 

printer 
Description: Data Manager is a 
complete data management 
system with up to 1200 entries 
on a disk. You may define your 
own data then add, change, or 
delete any record from your 
disk. You may also search, 
print out a hard copy of any or 
all fields, and run totals. 
Price: $59.95 - VIC-20 
$79,95 — COM-64 
Includes documentation 
and binder. 

Available: 
MicroSpec, Ltd. 
2905 Ports O'Call Ct. 
Piano, TX 75075 
(214) 867-1333 



Name: 



Job Costing/ 
Tracking 

Apple II, Apple H 
Plus, or Apple III 
with emulator 
[Applesoft in 
ROM] 
48K 

Applesoft 
Two disk drives, 
132-column 
printer 
Description: Contractors can 
save time estimating, writing 



System: 



Memory: 

Language: 

Hardware: 



proposals, analyzing and track- 
ing job costs. The program is 
remarkably easy to use and is 
designed to provide numerous 
valuable reports and financial 
information for any size 
contractor. 
Price: $237.00 

Includes program diskettes 

and instruction manual. 
Author: Jeff Park 
Available: 

Software Solutions 

9124 Hwy. 17 

Scotts Valley, CA 95066 

(408) 438-2433 

or from any dealer 

Name: Bulk Mailer 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: Single ot dual disk 
or Corvus hard 
disk 
Description: A professional 
quality mailing-list program 
that features duplication 
elimination, fastest possible 
sorts, unlimited coding capa- 
bility, multiple label and 
default options, and instant ac- 
cess to any record. Diskette 
version (up to 2400 records) 
can later adapt to hard disk 
version (up to 32,000 records) . 
Price: $125.00 - diskette 

$250.00 - Corvus hard disk 

Includes complete 

documentation 
Author: Joe Marinello 
Available: 

Satori Software 

5507 Woodlawn N. 

Seattle, WA 98103 



Name: MicRo Math 
Blaster 

System: TRS-80 Model m, 

VIC-20 
Memory: 16K - TRS-80 

8K - VIC-20 
Language: BASIC 
Description: MicRo Math 
Blaster offers a combination of 
arcade game excitement and 
basic mathematic drill in addi- 
tion, subtraction, multiplica- 
tion, and division with levels 
of difficulty from grades one 
through eight. 

Price: $15.95 
Includes instruction manual. 

Available: 
M-R Information Systems, 

Inc. 
P.O. Box 73 
Wayne, NJ 07470 
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FOR YOUR APPLE II 

Industry standard products at super saver discount prices 



SOFTWARE 

ARTSCI List SGC 

Magicalc $149.00 $ 99.00 

Magic Window II 149.00 99.00 

DBase (Apple) 695.00 475.00 

BRODERBUND 

Payroll $395.00 $295.00 

Choplifter 34.95 25.00 

Arcade Machine 44.95 29.95 

Serpentine 34.95 25.00 

Home Accountant 74.95 55.00 

Home Accountant Plus .... 150.00 109.00 

DATAMOST 

Snackattack $ 29.95 $ 22 50 

Thief 29.95 22.50 

Swashbuckler 34.95 24.95 

Zorkl, II, or III 39.95 27.95 

Starcross 39.95 27.95 

Format II 250.00 175.00 

System Saver & Fan 59 95 49 00 

Multiplan 275.00 199.00 

ON LINE 

Mystery House $ 24.95 $ 19.95 

Cranston Mannor 34 95 24.95 

Frogger 34.95 24.95 

Screen Writer II 129.95 99.95 

Memory Management II .. . 49.95 39.95 

PEACHTREE 

GL, AR.AP, 

Inventory, Payroll .... ea.$400.00 ea. $295.00 

Micro Buffer II 299.00 249.00 

SENSIBLE SOFTWARE 

Super Disk Copy III $29.95 $22.95 

DOS Plus 24.95 17.95 

SERIUS SOFTWARE 

Bandits $ 34.95 $ 26.95 

Epoch 34.95 26.95 

Fly Wars 29 95 22.95 

Gorgon 39.95 29.95 

Sneakers 29.95 22.95 

Joy Port 74.95 59.95 

Wizardry 49.95 34.95 

Night of Diamonds 34.95 26.95 

Star Maze 34.95 26.95 

PFS 125.00 89.95 

PFS Report 95.00 69.95 

PFS Graph 125.00 89.95 

Data Capture 4.0 64.95 49.95 

Merlin/Assembly Lines 119.95 89.95 

Merlin 64.95 49.95 

ASCII Express Pro 129.95 99.95 

Transendll 149.00 119.00 

Transend I 89.00 65.00 

DB Master /... 229.00 165.00 

DB Utility Pack / . . . 99.00 79.00 

STRATIGIC SIMULATION 

All Software $ 59.95 $ 39.95 

All Software 39.95 27.95 

SYNERGISTIC SOFTWARE 

Wilderness & Dungeon ... $ 32.50 $ 24.95 

GPLE 64.95 49.95 

TG Joystick 59.95 45.00 

Select-A-Port 59.95 45.00 

Wordstar 325.00 

Spellstar 175.00 

SuperCalc 175.00 

VisiCalc 179.00 



SPECIAL AND NEW 



FRANKLIN ACE 1000 COMPUTER 

Hardware and Software compatible 
with Apple II $950 

FRANKLIN ACE 1000 COMPUTER plus 
DISK DRIVE, CONTROLLER, 
and MAGICALC $1,250 



EXPAND-A-RAM® PLUS MAGICALC® 

Everything that Visicalc™- can do and much more 
-plus additional memory. Fully compatible with 
Visicalc. Includes DOS, CP/M, Pascal Disk 
Emulator. No preboot or Apple modification 
required. 

64K EXPAND-A-RAM plus 

MAGICALC $375 

128K EXPAND-A-RAM plus 

MAGICALC $449 

APPLEsurance II® 

Diagnostic Disk Controller and System 
Assurance Package. Standard disk 
controller plus automatic check 
of system hardware $99 



5 1 / 4 " DISK DRIVE 

Use with either standard Apple II disk 
drive or APPLEsurance II 



$249 



GRAPHITTI CARD 

Prints HIRES page 1 or 2 from onboard firmware. 
Features: True 1 :1 aspect ratio, prints emphasized 
mode, reverse mode, rotates 90 degrees . . . plus 
more. Compare all this with the Grappler. We think 
you'll agree that this is the best graphics card on 
the market. Specify for use with EPSON, NEC- 
8023, C-ITOH Prowriter, orOkidata. 

(List: $125) $89 



PARALLEL PRINTERS 

NEC 8023 or C-ITOH 8510 

(Virtually identical) Specifications: • 100 CPS dot 
matrix printer • 80 column print- 136 characters 
per line • Tractor/friction feed • 7 different print 
fonts included • 2K printer buffer • Proportional 
spacing • Bit image graphics and graphic symbols. 

NEC 8023 or C-ITOH $475 

NEC 8023 or C-ITOH 8510 with 
Parallel Interface and Cable $550 

EPSON 100 with Parallel Interface 

and Cable $775 

BROTHER Daisywheel Printer $895 

VERSAcard FROM PROMETHEUS 

Four cards on one! With true simultaneous opera- 
tion. Includes: (1) Serial Input/Output Interface, 
(2) Parallel Output Interface, (3) Precision Clock/ 
Calendar, and (4) BSR Control. All on one card. 
Fully compatible with CP/M ' and Apple Pascal '. 

(List: $249) $169 



WORD PROCESSING SPECIAL 
WITH WORDSTAR AND SUPERCALC! 

Do professional word processing on your APPLE. 
All necessary hardware and software included. 
Complete 80 column video display, enhanced 
character set, 16K memory board, Z-Card with 
CP/M 1 software, Wordstar and word processing 
software and SuperCALC. 

(List: $1,228)... Special at $795 

Z-80 CARDS List SGC 

Microsoft Softcard Z-80 . . . $399.00 $289.00 

ALS Synergizer 749.00 595.00 

U-Z-80 Processor Board . . 125.00 

Microsoft+ Premium Syst. . 595.00 

80-COLUMN CARDS 

Smarterm 80-Col Display . . $345.00 $225.00 
Smarterm Expanded 

Character Set 40.00 

Combination Smarterm 

& Exp. Char. Set 260.00 

Videx Videoterm 275.00 

Videx Enhanacer II 149.00 125.00 

Videx VisiCalc Preboot .... 49.95 45.00 

MODEMS FOR YOUR APPLE II 

Hayes Smartmodem 300 . . $229.00 

Hayes Smartmodem 1200 . 699.00 550.00 

Micromodem II 279.00 

Hayes 100 Baud Call 

Apple Cat II 389.00 299.00 

D Cat Modem 199.00 175.00 

MONITORS 

Amdek 300G Green $159.00 

Color-Taxam RGB 

with Interface 395.00 

PARALLEL INTERFACE 

Centronics Compat. PRT-1 . $69.00 

JOYSTICK Replaces two 

Apple Paddle Controllers . $ 59.00 $ 39.00 

FUNCTION STRIP $ 79.00 $ 65.00 

MEMORY EXPANSION 

Prometheus 16K RAM Module 

complete $169.00 $ 65.00 

5 1 /»" FLOPPY DISKS 
Box of 10 with hub rings 

With other purchase $ 19.95 

Without other purchase .. . 23.00 



All equipment shipped factory fresh. Manufacturers' warranties 
included. California customers add 6Vi% tax. Include payment by 
personal check, money order, or cashier's check with order and 
SGC will pay shipping charge. Call for amount of shipping charge 
when paying by credit card. 

All items are normally in stock 

415)490-3420 

. . . And we'll be here to help after you 

receive your order. Feel free to call the SGC 

Technical Staff for assistance. 

Th« mail order specialists 

1 342 Quartz Circle, Livermore, CA 94550 
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Name: Color Chart 

System: Commodore 
CBM/PET 
Rockwell AIM 
Description: Coior Chart is a 
color-video RAM board that 
operates in eight different 
modes — alphanumeric 32 x 
16 with built-in character 
generator to high resolution 
128 x 192 pixels. Coior Chart 
generates an independent 
RS170 output. Business graphs 
and game graphics can be dis- 
played in color. 
Price: $139.95 

Includes color chart board 

and instructions. 
Available: 

CGRS Microtech 

P.O. Box 102 

Langhorne, PA 19047 

(215! 757-0284 



Name: Mannesmann 

Tally Microprinter 
MT160 

Memory: 2000 characters 
Language: USASCII plus six 
European 
languages 
Description: This 80-column 
serial matrix printer has 160 
characters per second friction 
feed, optional tractor feed, dot 
addressable graphics, optional 
correspondence quality print 
with right-margin justifica- 
tion, text centering, and pro- 
portional spacing. The printer 
features 8-bit parallel and 
RS232 interface. 
Price: $845.00 and up 
Available: 
Mannesmann Tally 
|for OEM quantities) 
Industrial distributors, 
computer dealers, and 
computer stores 



Name: Rememory Board 

System: AIM 65 
Memory: 4K 

Description: The Rememory 
Board for the AIM 65 provides 
4K of low power CMOS RAM 
with battery backup. Simply 
remove the AIM 65 RAM chips 
and plug the Rememory Board 
into the RAM sockets. Pro- 
grams and data are protected if 
the computer is turned off or 
loses power, and are ready to 
run when the power is 



restored. No special program- 
ming, rewiring, or soldering is 
required. 

Price: $220.00 

Includes 4K Rememory 

Board with battery. 
Available: 

Devices and Services Co. 

10911 Dennis Road 

Suite 405 

Dallas, TX 75229 



Name: DISCOVER 

Description: DISCOVER is a 
stylish and sturdy diskette box 
expertly crafted of naturally 
finished solid wood with brass 
simulated aluminum that pro- 
vides convenient and safe 
storage for as many as forty- 
five 5W" diskettes in three 
equally spaced sections. The 
low profile top design keeps 
the lid out of the way when 
open and conveniently ready 
to close with one hand. 
Price: $59.95 Redwood; 

$67.95 Oak; $69.95 Walnut 

plus $3.00 s/h 
Available: 

Leland Young Company 

P.O. Box 4127 

Bay Pines, FL 33504 



Name: RB5X 

System: All 

Memory: 8K 

Hardware: Mobile Intelligent 

Robot 
Language: Tiny BASIC 
Description: RB5X is an ex- 
perimental intelligent robot 
that learns from its own ex- 
perience, progressing from 
simple random responses to an 
ability to generalize about 
features of its environment. 
Equipped with its own micro- 
processor, memory, programs, 
and tactile sensors, the RB is 
intended as a tool for experi- 
menters. It can be "trained", 
studied, and adapted in a varie- 
ty of ways according to the im- 
agination of its owner. With 
the standard RS-232 interface, 
the robot's memory can be 
studied, and its programs 
altered via a personal com- 
puter. A Special Option 
Package with 16K add-on 
memory, Polaroid Rangefinder 
sonar sensor, and pulsating 
light option is also available. 



Additional options under 
development include a 
mechanical arm, a voice syn- 
thesizer, and digital radio com- 
munication between RB5Xs. 
Price: $1195.00 

Special Option Package, 

$295.00 
Available: 

RB Robot Corporation 

14618 W. 6th Ave. 

Suite 201 

Golden, CO 80401 

|303j 279-5525 

Name: ZVX4 Megabyter 

System: Apple II Plus 
Hardware: Apple II Plus 
with 48K-56K, 
one 5 Vi " drive 
Language: Apple DOS 3.3, 
Pascal, CP/M 
(Microsoft and 
PCPI] 
Description: ZVX4 Megabyter 
is an 8" disk controller for Ap- 
ple II that provides up to 2.2 
megabytes with two double- 
sided/double-density disk 
drives. It uses IBM industry- 
standard 3740 format to create 
standard 8" diskettes that are 
usable on other computer 
systems. 
Price: $445.00 
Includes controller, manual, 
startup software. 
Available: 
Sorrento Valley Associates, 
Inc. 

11722 Sorrento Valley Road 
San Diego, CA 92121 
(619) 452-0101 

Name: Rover 1 Portable 
Computet 

System: Dual 8 Bit 

Microprocessors 
(6502 Family) 
Memory: 128K RAM, 4K 
PROM, built-in 
tape drive 
Language: 6502 Assembly, 
BASIC and others 
shortly 
Description: The Rover 1 Por- 
table Computer, a part of the 
Rover Computer System, is 
suited for business applica- 
tions, home, office, or schools. 
Standard full/ travel keyboard 
with ten function keys, 110V 
or 220V, RS-232, serial and 
parallel ports, real-time clock, 
video output, accepts CP/M 



Cards, uses both floppy and 
hard disk drives. The Rover 
System weighs less than 18 
lbs. The battery will allow up 
to six hours of operation with 
the Multifunction Expansion 
Unit (option 001). 
Price: $1850.00 Computer 
$2500.00 System 
Includes Rover 1 Portable 
Computer, Rover Display 
Unit, Multifunction 
Expansion Unit (option 
001) and attache carrying 
case. 
Available: 
Exclusive Dealer Distributer 
M.P. Computer Services 

Corp. 

2396 Encinal Station 
Sunnyvale, CA 94087 
(408) 735-0871 
Dealer inquiries invited 

Name: Rabble OZI 

Expansion Board 

System: Ohio C IP 

Superboard 11 
Memory: 32K RAM plus up 

to 32K ROM 
Description: The Rabble Ex- 
pansion Board system for the 
C1P contains 32K CMOS RAM 
and sockets for 32K ROM. A 
simple modification to the 
C1P will permit 40K RAM 
(using C1P 2114's). Features 
are: Ohio compatible floppy 
disk controller with motor 
control and data separator, 
real-time interrupt facilities, 
two programmable sound gen- 
erators and amplifier provide 
six simutaneous sounds to be 
output at once, and user in/ 
out expansion is provided for 
with a peripheral and versatile 
interface adaptor (PIA and 
VIA). A prototype area is 
available for approximately 
20 ICs. 
Price: $430.00 

$90.00 bare board and 

manual 

Includes fully socketed, fully 
populated (except ROM) 
board tested and set up for 
5 l A" drives |8" if requested 
N/C). Ninety-page manual 
with circuits. 
Available: 

Rabble OZI Computers 

P.O. Box 781 

Shepparton VIC 3630 

Australia 
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FORTH 

At 

At 400/800 

6809 
ApII 
At 400/800 

TRS-80C 

TRS-80C 

Apn/n 
A P n 

Apn/n 
A P n/n 

Ap H, 6809, 6502 

A P n/n 

FORTRAN 

Ap n/n Pius 
Ap n/n plus 



Ap 
Ap 
OSI 
Ap 



Language Packages 



Extended 

fig-FORTH 
FORTH 


Atari 

Quality Software 


10K plus 
24K, 810 drive 


FORTH 
FORTH 
valFORTH Int'l. 


Kenyon Microsystems 

Kuntze 

valFORTH 


TSC FLEX 9.0 DOS 

24K plus 10-12K working space 


Color-FORTH 


Hoyt Steams 
Electronics 




Color-FORTH 


Hoyt Stearns 




FORTH 72, 
Version 2 


MicroMotion 


1 drive 


MicroSPEED I, n 
(structured, totally 
recursive, corn- 


Applied Analytics 


48K RAM, 1 drive 



piled language) 
FORTH 1.7 Information Unlimited 

Software 
OGI fig-FORTH On-Going Ideas 



fig-FORTH source 

listings 
polyFORTH 



3 FORTH Interest 

Group 
FORTH, Inc. 



Editor's Note: This list provides a sample of the most popular 
packages available and is not meant to be comprehensive. 



$100 

$79.95 

disk/manual 

$100 

$90 

$45 plus $40 

Gen.U til. & 

Vid. Ed. 
$123 (RAM & 

ROM), $58.95 

(RAM) 
$58.95 (RAM), 

$123 (ROM & 

RAM) 
$89.95, 

$139.95 hi-res 

& floating point 
$495/$645 



$140 

$40 diskette 
or $60 with 
OGI Pascal 

$10 

Level 3 
($600), Level 4 
full system 
source ($3200) 



I APDOS, 48K RAM, 1 drive 
| 48K, Disk H 

48K, Z80 card 



APH/n 



Apple FORTRAN 
FORTRAN-80 


Apple 
Microsoft 


48K with 16K RAM card/Ap Pascal Lang. Sys/2 drives 
48K/16K RAM card optional/ 1 drive - 2 preferred/ 
W.M. Softcard includes CP/M 


$500 

$195 program 

alone plus $400 

for softcard 


FORTRAN 
Nevada FORTRAN 


Compu/Think 


PILOT 
CP/M 


$69.95 
$199.95 


FORTRAN 3.4 


OSI 


CP/M, 8 disk drives 


$400 


FORTRAN- 7 7 


SofTech Microsystems, 
Inc. 


48K RAM/64K for Prog. Develop., UCSD p-System 


$375 for 8 disk 
plus $375 for 
UCSD 


Nevada FORTRAN 


Ellis Computing 


Softcard, CP/M, 1 drive 


p-System 
$29.95 



a 



o 



LISP 






Ap 
Ap 

Apn/n 


LISP 

APP-L-ISP 

p-LISP 


Owl Computers 
Datasoft, inc. 
GNOSIS 


6502/Ap 
At 400/800 


muLISP/ 

muSTAR-80 
INTERLISP 


Microsoft 
Datasoft, Inc. 


LOGO 






Ap n/n Plus 


LOGO 


Krell Corp. 



TRS-80C 


TRS-80 Color 
LOGO 


Radio Shack 


Ap n/n Plus 

Ap n/n Pius 


Terrapin LOGO 
Apple LOGO 


Terrapin, Inc. 
Apple 


VIC -20 


Turtle Graphics 


HES 


Micro-Dymanic 






Apn 


Micro-Dynamic 


Addison- Wesley 
Publishing Co. 


Modula-2 






Apn 


Modula 2 (systems 
implementation) 


Volition Systems 


68000 


Multi-FORTH 


Creative Solutions 


MUMPS 






6809, 68000, Apple 


MSM-09 


Micronetics Design 



DOS 3.2, 1 disk drive 

APDOS, 48K RAM, Applesoft in RAM or Lang. Card 



APDOS, 32K, 1 drive, CP/M 
48K RAM, 1 drive 



disk drive (l]/lang. card 



1 disk drive, 32K 



1 disk drive/lang. card, 16K memory board 
1 disk drive/lang. card, 64K RAM 



2 disk drives, lang. or RAM card & Pascal 



Apple Pascal 1.1 



: 64K (Motorola MEX68KDM] 



$124.95 

$149.95 disk 
(tutorial & 
manual incl.j 



$124.95 



$99 no frUls 
combination/ 
$89 frills 
only/$149.95 
combination 

$99 disk 

$149.95 
$175 

$39.95 



$245 



$495 



$1500-5000 



$695 



k 
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Language Packages 



Pascal 

At 
6809/Ap 



CB/M 

6809/6502/68000 
Ap H/n Plus 



Ap 
CB/M 

6809 



TRS-80C 

6809 

Ap 
Ap 

Ap 

68000 
Ap 

PET 

Ap 

OSI C4PF/CP-C4 

Ap 

CBM 

ApII 

Ap II 

ApII 



PILOT 

ApII 

Ap 

PET 

Ap 

COM 

Ap 

Ap 

Ap II/II 

At 



Atari Pascal 
Dynasoft Pascal 1.2 



Tiny Pascal 
UCSD Pascal 
Pascal-Level I 



Pascal 
Pascal 



P-6800 Pascal 



Atari 

Dynasoft Systems 
Limited 



Abacus 
SofTech 
On-Going Ideas 



Merrimack Systems 
Commodore Business 

Machines 
Lucidata 



Color Pascal 

UCSD Pascal 

Pascal Compiler 
Pascal Compiler 
JRT Pascal 

Pascal 

Tiny Pascal Plus 

KMMM Pascal 

Apple Pascal 

Pascal 1.3 

Pascal/M 2.2 

Tiny Pascal 

Pascal I 

Pascal II 

Program Develop- 
ment I (OGI Pascal 
Level I) 



Computerware 

3 Tallgrass Technologies 
Corpoiation 
Micro ware 
Omega Software 
JRT Systems, Inc. 

Hemenway Assoc, Inc. 
Abacus 

AB Computers 

Apple 

OSI 

Sorcim 

Abacus 

On-Going Ideas 

On-Going Ideas 

On-Going Ideas 



PILOT 
APPILOT 
PETPILOT 
Nevada PILOT M 
Vanilla PILOT 
APPILOT n 

(EDU-DISK) 
Apple PILOT 
Nevada PILOT 
Atari PILOT 



On-Line 

Muse 

Commodore 

Tamarack 
Muse 

Apple 

Ellis Computing 

Atari 



disk drive 

6809-16K/cassette. Ap-disk/cassette 



64K for Prog. Development/UCSD p-System 
Disk II/DOS 3.2 or 3.3/48K/Applesoft ROM 



GIMIX under TSC FLEX 



ASCII Text Editor/32K min. 



OS9 

OS9/M DOS/FLEX/XDOS/DOS69 

CP/M 



32K ROM or 48K RAM 

16K or32K, disk drive 

recom. 2 drives 

C4PF - 5 M disks, CP-C4 - 8 disks 

CP/M, Z-80 card, 64K, 2 drives 

48K ROM Applesoft, 8K min. runtime 

48K, Disk II 

48K ROM Applesoft, Disk II 



Z-80 card 



16KRAM 
48K, DOS 3.2 



recom. 2 drives 
Softcard, CP/M, 1 drive 



$49.95 

$45 cass (6809] 

$55 disk/ 

$50 cass (Ap|, 

$90 (1.31 

GIMIX systems 

with FLEX 
$40 cass/$35 disk 
$375 
$35 diskette 

(Level I|/$69 

(Level II) 

generates 6502 

machine code 

$250 

$90 

(2.1MiniFLEX|, 
$100 (2.2 FLEX 
2|, $100 (FLEX 9] 

$49.95 (tape), 
$59.95 [disk| 

$495 



$425 

$29.95 with 
manual 

$55 cass/$59 

disk with DOS 
$85 disk 
$495 
$460 



o 



$49.95 

$35 

$60 



$150 

$49.95 

$24.95 

S 149. 95 

$29.95 

$99.95 

$150 

$29.95 

$179.95 



o 



Small C 

6809 



TRS-80C 



Small C Compiler Wordsworth 



FLEX 9 or DOS 69D, 48K 



Small C Compiler Duggers Growing Systems Assembler Pkg. 



$52.90 (FLEX 
9), $4?. 50 
(if you have 
RLOAD), 

$47.5(1 
(DOS69D 
$59.95 plus 
assembler pkg. 



VIGIL 

VIC /PET 

XASM 



VIGIL (interactive Abacus 
games language) 



3K or 8K expander 



6502 with CP/M XASM 6500 Succinct Systems 32K min. plus CP/M 

ISystems 
Implemen- 
tation Language] 



XPLO 

Ap H, KIM, SYM, 

AIM , XPLO 



6502 Program Exchange 48K, Disk II |Apple II), 20K cass with others 






$35 



$150 



$150 (Ap) 
includes APEX 
DOS/S45 
(others). $15 
user's manual 



o 
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VIC-20 



o 



VIC-20 

6502-based home computer manufactured by 

Commodore 
Connects to any TV through RF modulator. 
Full-size keyboard Includes graphic characters 

and programmable function keys. 

Graphics: 

16 colors 

Multi-color characters 

Programmable characters 

Limited high-resolution 
Sound: 

3 Music voices 

Noise voice 
I/O: 

Commodore cassette 

Expansion cartridge 

Parallel 

Commodore serial 

RS-232 (partially Implemented) 



VIC-20 Memory Map 

Address Function 

$00-$FF Page zero: operating system storage, pointers, floating 

point accumulators, flags, etc. 

$100-$1FF Microprocessor system stack 

$100-$10A Floating-to-string work area 

$200-$2FF Operating system buffers, tables, vectors, I/O flags, 

keyboard handling 

$300-$3FF Vectors, tape I/O 

$400-$FFF Expansion RAM 

$1000-$1DFF User BASIC RAM (in unexpanded version) 

$1E00-$1FFF Screen RAM (in unexpanded version) 

$2000-$3FFF 8K RAM/ROM expansion 

$4000-$5FFF 8K RAM/ROM expansion 

$6000-$7FFF 8K RAM/ROM expansion 

$8000-$8FFF Character generator ROM 

$9000-$900F VIC Chip (6560) 

$9110-$911F VIA (6522) 

$9400-$95FF Color RAM (location with RAM at $400) 

$9600-$97FF Color RAM (location without RAM at $400) 

$9800-$9BFF I/O Block 2 

$9C00-$9FFF I/O Block 3 

$A000-$BFFF Expansion ROM 

$C000-$DFFF BASIC ROM 

$E000-$FFFF Kernal ROM-machine independent routines and vectors 



Table of Musical Notes 



Expansion/Cartridge Connector 



o 



, Approx. Note 


Value 


C 


135 


c# 


143 


D 


147 


D# 


151 


E 


159 


F. 


163 


F# 


167 


G 


175 


G# 


179 


A 


183 


A# 


187 


B 


191 


C 


195 


C# 


199 


D 


201 


D# 


203 


E 


207 


F 


209 


F# 


212 


G 


215 


G# 


217 


A 


219 


A# 


221 


B 


223 


C 


225 


C# 


227 


D 


228 


D# 


229 


E 


231 


F 


232 


F# 


233 


G 


235 


G# 


236 


A 


237 


A# 


238 


B 


239 


C 


240 


C# 


241 



o 



Poke value Into 
Control volume 



36874, 36875, 36876, or 36877. 
with POKE 36878,0 to 15. 



Pin 


Function 


1 


GND 


2 


CD0 


3 


CD1 


4 


CD2 


5 


CD3 


6 


CD4 


7 


CD5 


8 


CD6 


9 


CD7 


10 


BLK1 


11 


BLK2 


12 


BLK3 


13 


BLK5 


14 


RAMI 


15 


RAM2 


16 


RAM3 


17 


VR/W 


18 


CR/W 


19 


IRQ 


20 


NC 


21 


+ 5V 


22 


GND 



Pin 


Function 


A 


GND 


B 


CA0 


C 


CA1 


ID 


CA2 


E 


CA3 


F 


CA4 


H 


CA5 


J 


CA6 


K 


CA7 


L 


GA8 


M 


CA9 


N 


CA10 


P 


CA11 


R 


CA12 


S 


CA13 


T 


I/02 


U 


1/03 


V 


S02 


w 


NMI 


X 


RESET 


Y 


NC 


z 


GND 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 



ABCDEFHJKLMNPRSTUVWXYZ 



Cassette 



Pin 


Function 


1 


GND 


2 


+ 5V 


3 


CASSETTE MOTOR 


4 


CASSETTE HEAD 


5 


CASSETTE WHITE 


6 


CASSETTE SWITCH 



12 3 4 5 6 



A B C D E F 



L. 
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User I/O 



Pin 


Function 


1 


GND 


2 


+ 5 V 


3 


RESET 


4 


JOY0 


5 


JOY1 


6 


JOY2 


7 


LIGHT PEN 


8 


CASSETTE SWITCH 


9 


SERIAL ATN IN 


10 


+ 9V 


11 


+ 9V 


12 


GND 



3 4 5 6 7 



VIC-20 



Pin 


Function 


A 


GND 


B 


CB1 


C 


PBO 


D 


PB1 


E 


PB2 


F 


PB3 


H 


PB4 


J 


PB5 


K 


PB6 


L 


PB7 


M 


CB2 


N 


GND 



9 10 11 12 



ABCDEFHJKLMN 



Game I/O Port 



Pin 


Function 


1 


JOY0 


2 


JOY1 


3 


JOY2 


4 


JOY3 


5 


POTY 


6 


LIGHT PEN 


7 


+ 5V 


8 


GND 


9 


POTX 
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Color Codes 



BLACK 





WHITE 


1 


RED 


2 


CYAN 


3 


PURPLE 


4 


GREEN 


5 


BLUE 


6 


YELLOW 


7 


ORANGE 


8 


LT. ORANGE 


9 


PINK 


10 


LT. CYAN 


11 


LT. PURPLE 


12 


LT. GREEN 


13 


LT. BLUE 


14 


LT. YELLOW 


15 



Audio/Video 



Pin 


Function 


1 
2 
3 
4 
5 


+ 5 V, REGUUTED 

GND 

AUDIO 

VIDEO LOW 

VIDEO HIGH 



Serial I/O 



Pin 


Function 


1 


SERIAL SRQ IN 


2 


GND 


3 


SERIAL ATN IN/OUT 


4 


SERIAL CLK IN/OUT 


5 


SERIAL DATA IN/OUT 


6 


RESET 




o 



6560 Video Interface Chip (VIC) 
Address 


Hex 


Decimal 


Bit 


Function 


$9000 


36864 


7 
6-0 


Interlace mode (1on, Ooff) 
Screen origin-horizontal 


$9001 
$9002 


36865 
36866 


7 


Screen origin-vertical 
Screen address-bit 9 


$9003 


36867 


6-0 
7 


Number of video columns 
Part of raster value 






6-1 



Number of video rows (0-23) 
Character size (8 x 8 0, 8 x 16 1) 


$9004 
$9005 


36868 
36869 


7 


Raster value 
Must be 1 






6-4 
3-0 


Screen address-bits 10-12 

Character memory (value 0-3: ROM, 12-15: RAM) 


$9006 
$9007 


36870 
36871 




Light pen-horizonai 
Light pen-vertical 


$9008 
$9009 


36872 
36873 




Paddle X 
Paddle Y 


$900A 


36874 


7 


Bass voice 
Switch 


$900 B 


36875 


6-0 


Frequency 
Alto voice 






7 
6-0 


Switch 
Frequency 


$900C 


36876 


7 


Soprano voice 
Switch 


$900D 


36877 


6-0 


Frequency 
Noise voice 






7 
6-0 


Switch 
Frequency 


$900 E 
$900F 


36878 
36879 


7-4 
3-0 
7-4 
3 


Auxilliary color 

Volume 

Screen color 

Reverse mode (normal 1, reversed 0) 






2-0 


Border color 






o 
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Printers 



O 



O 



o 
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GEMINI- 

FOR PRINTER VALUE THAT'S 
OUT OF THIS WORLD 




Over thirty years of down-to-earth experi- 
ence as a precision parts manufacturer has 
enabled Star to produce the Gemini series 
of dot matrix printers — a stellar combina- 
tion of printer quality, flexibility, and reliabil- 
ity. And for a list price of nearly 25% less 
than the best selling competitor. 

The Gemini 10 has a 10" carriage and 
the Gemini 15 a ISVfe" carriage. Plus, the 
Gemini 15 has the added capability of a bot- 
tom paper feed. In both models, Gemini 
quality means a print speed of 100 cps, high- 
resolution bit image and block graphics, 
and extra fast forms feed. 

Gemini's flexibility is embodied in 
its diverse specialized printing 
capabilities such as super/ 
sub script, underlining, back- 
spacing, double strike mode 
and emphasized print mode. An- 
other extraordinary standard 



dard micronics»inc matt 

MAKING A NAME FOR OURSELVES 

1120 Empire Central Place, Suite 216, Dallas, TX 75247 



feature is a 2.3K buffer. An additional 4 K 
is optional. That's twice the memory of lead- 
ing, comparable printers. And Gemini is 
compatible with most software packages 
that support the leading printers. 

Gemini reliability is more than just a 
promise. It's as concrete as a 180 day war- 
ranty (90 days for ribbon and print head), a 
mean time between failure rate of 5 million 
lines, a print head life of over 100 million 
characters, and a 100% duty cycle that 
allows the Gemini to print continuously. 
Plus, prompt, nationwide service is readily 
available. 

So if you're looking for an incredibly 

X high-quality, low-cost printer 
that's out of this world, look 
to the manufacturer with its 
feet on the ground — Star and 
® the Gemini 10, Gemini 15 dot 

I nc matrix printers. 



EVERYONE NEEDS A . . . 



J ^^BATT FRY I 

^^ BATTERY I 



^ 6 MINUTES 

™ V'ACUNE 

BATTERY ■ ■ ■ ■ ■ 2 MINUTES 
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ELECTRONICS, INC. 




WANCED DESIGN 
RELIABILITY 
kRDIAN PROTECTS 
LS LECTRONIC SAFETY 
L IFESAVER FOR DATA 





MONITOR — 

MICRO COMPUTE 



SAVE YOUR DATA 
FROM POWER OUTAGE 



BAGKUPFORyOURCOMP^Te^MPNITOR.PRINTERANDSli 

• Automatical slops' arwioying pro : i power IV 

■ Maintenance free backup power available in or 60 HZ ' 

your system from a 1 2 yolt.sourcs, i.e^aufomobile cigarelfi oat or airpi 3el cell battery 

• No voiding warranty ~ no cutting wires • Automatic audio atarm warnirig tone dur ;ure or interrupt 

• UL listed • FCC approved • transient voltage suppressor gives added insurance from line voltage spikes, utilizing Zen&i Ray TW 
:• Green/red LED power status indicator • Green — normal AG ilfie power ■ Slow blinking red — at least 6 minutes of remaining 
standby power «'► Fast blinking red — approximately 2 minutes of remaining battery power » Solid state technology unexcelled 
by any UPS power unit in its class. 
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ELECTRONICS, INC. 

COPYRIGHT © 1981 - PATENTS PENDING 

566 IRELAN, BUELLTON, CA 93427 
(805)688-2047 



Circle No. 67 



SEE YOUR RH ELECTRONICS 
PRODUCTS DEALER 

FOR YOUR APPLE II'; 

SUPER FAN K™ $ 74.95 

SUPER FAN ll"VZENER RAY'" 1109.00 

SUPER RAM II" S125.00 

RH 12 VOLT TRANSVERTER SMfl.OO 

FOR MICRO COMPUTERS: 

GUARDIAN ANGiL 7 " S595.00 



by Ralph Tenny 

Some of the fun I have working on the 
Color Computer is making use of the 
superb architecture of the basic 
machine. It is my intent to use this col- 
umn to help you learn the art of com- 
puter interfacing so that yoi>can realize 
maximum personal use and satisfac- 
tion from your machine. I will deal 
with programming as necessary, but 
there will be special emphasis on the 
Radio Shack Color Computer. This 
machine is one of the most cost- 
effective designs available for its 
original purpose of game playing, and it 
also has great potential for other ap- 
plications. In many cases, the theory 
behind my discussions will apply to 
any microcomputer, but specific de- 
tails will apply to the Color Computer. 
Since I will be talking about com- 
puter interfacing, let me define what 
that means. A computer interface is an 
electrical circuit that transfers informa- 
tion or electrical energy between the 
computer and the outside world. This 
transfer can occur in either direction — 
from the computer to the outside 
world, or to the computer from the out- 
side world. I will also use the terms 
"transducer" and "sensor." A trans- 
ducer is a device or material that trans- 
forms input energy of one form to out- 
put energy of another form; a sensor 
transforms a physical stimulus into an 
electrical signal. 

Fundamentals 

(Editor's note: For CoCo users who 
are beginners with machine language, I 
recommend Rodney Zak's Program- 
ming the 6809 published by Sybex, or a 
similar elementary programming book 
to get started.) 

Let me review some microprocessor 
( nP) fundamentals before I discuss in- 
terfacing the Color Computer. The 
"brain" in your computer is a mP that 
performs nearly one million operations 
(machine cycles) each second. Any 
operating computer is reading and ex- 
ecuting a list of instructions called a 
program; making that list is called pro- 
gramming, regardless of the language. 

Without a program, the computer is 
helpless and stupid. However, when 



you turn on any modern computer like 
the Color Computer, it already knows 
how to read the keyboard, display in- 
formation on the screen, and read pro- 
grams from the cassette recorder and 
(perhaps) the disk. It also knows 
BASIC, and is able to help you learn 
how to operate it. In other words, the 
modern home computer already has a 
lot of program information furnished as 
part of the package. This column will 
help you learn to use the existing hard- 
ware -and software for new purposes and 
to add more hardware and software to 
perform new tasks. 

Before I begin discussing interfaces, 
you need to be aware of some calling 
conventions used in hardware and logic 
discussions. First, most logic lines will 
be assigned names that enable you to 
discuss them. Where possible, the sig- 
nature will remind you of the line's 
function. If a logic line has one logic 
level (high or low) that causes 
something to happen, that is the active 
level. For example, memory-enable 
lines usually enable (turn on) the 
memory for read or write when the line 
is at logic 0; the line is defined as active 
low. A dual-function line may have a 
name signifying the function of both 
levels. There are at least two common 
ways to signify the active level: the 
active-low state may have a line over 
the signature (overbar), or the active- 
low signature may be designated by an 
asterisk (MEMENA*). 

Figure 1 shows the pinout of the 
6809 n P used in CoCo; you can see 16 
address lines (A0-A15) and 8 data lines 
(D0-D7). If the uP sets the address 
lines to read one of 65536 (2**16) 
unique memory locations, the memory 
responds by making available one byte 
(eight bits) of data on the data lines. 
The jiP continuously performs sequen- 
tial operations, following instructions 
in the program. Each byte of an instruc- 
tion is located at a unique address in 
the memory of the computer. 

Besides the address bus (16 lines) 
and the data bus (8 lines] already men- 
tioned, the /iP has some control lines, 
two of which are called R/W* 
(Read/not Write,- Write is active low) 
and Q. R/W* signals the memory to 
furnish data when this line is at logic 



one |READ is active high), or to receive 
data when R/W* is at logic zero. Q is a 
timing signal that tells the memory 
when the data is valid, and causes the 
memory to record data presented dur- 
ing a Write cycle. 

For now I will bypass how a pro- 
gram is placed in memory. What you 
need to visualize is an interface to the 
real world! After all, if the computer 
can't communicate with the world out- 
side its case, it can't do useful work — 
not even communicate with its oper- 
ator! So, besides the memory, which 
holds instructions and data, the ^iP 
must have some sort of external circuit 
to perform the interface function. Some 
early fiPs had status and flag lines that 
were connected to package pins on the 
>*P. A status line could be set to +5 
volts (logic one) or volts (logic zero) 
by external signals. The flag lines could 
be set to logic one or logic zero by the 
\iV, and external circuits would "read" 
that level and cause some action to 
happen. For example, a flag line could 
be used to turn on a light or relay, 
signalling that the yP had (for example) 
finished running a program. Most 
modern j^Ps (including the 6809) have . 
Programmable Interface Adapters (PIA) 
that decode the address lines and read 



Figure 1: The pinout for the 6809E 
microprocessor used In the Radio Shack 
Color Computer. See text for a discus- 
sion of pin functions. 
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or write data on the data bus, trans- 
lating the ^P's blinding speed into fixed 
voltage levels. PIAs are said to be 
memory mapped — they occupy part of 
the 65536 memory address locations. 
Since each address must be unique, 
memory address space set aside for 
PIAs and other devices must not be 
used by memory. 

The yiS performs its operations so 
rapidly that any bit of data will be 
available for less than one micro- 
second. Figure 2 shows the bus activity 
for one machine cycle. Assume that six 
of the eight data lines are connected to 
a latch or data register as shown in 
figure 3; if the latch is active (reads the 
data) when Q drops back to a logic 
level, then the data is captured by the 
latch. You should realize also that this 
latch, like any memory location, must 
be addressed by the \i£ only when the 
data is intended for storage in the latch. 

Several numbers appear in figure 2 
and represent time in microseconds 
(/iSec), measured from left to right. For 
example, the time for one cycle of 
signal E is 1.12 (/Sec, and Q goes high 
.251 ^Sec after E goes low, staying high 
for .502 ^Sec. In general, I will present 
this type of timing diagram using woist 
case times. Later, I will discuss how to 
derive worst case data. For now, just 
realize that all integrated circuits have 
performance variations; i.e., for any 
number of one kind of IC, some parts 



will be faster |work better) than others. 
The manufacturer furnishes data on 
timing variations, and the worst case 
data is that performance extreme that 
will be most likely to cause a circuit 
design to operate improperly. 

Figure 2 represents a snapshot of the 
precise time interval that data is being 
sent to the latch in figure 3. How long 
do you have to capture that data? The 
data first becomes valid .251 + .028 + 
.223 (.502) jiSec after E goes low. That 
means .that the manufacturer guaran- 
tees that a 6809E will take no longer 
than .502 /*Sec to deliver data to the 
data bus. Two numbers in figure 2 are 
followed by (H); this designates hold 
time, or how long the data is available 
after another signal changes. If you sub- 
tract .502 from 1.12, then add .03 ^Sec 
hold time, you will derive how long the 
data is available,- the answer is .618 
ySec! During the very next machine 
cycle, the data on the data bus will be 
different and intended for another 
destination. If you think about it, there 
are only two things that distinguish the 
machine cycle of figure 2 from any 
other machine cycle. First, this is a 
WRITE cycle, since R/W* is low (W 
active), so it is sending data out from 
the jiP. Second, each data destination 
must be unique to avoid memory errors 
and conflicts. 

The process of defining a unique 
destination would be easy if every part 



that interfaces with the piP had 16 ad- 
dress lines. However, this would re- 
quire large (and expensive) IC packages 
to make room for so many pins. Since 
that isn't feasible, devices called 
decoders are used. For now, I will ex- 
plain the function and leave the details 
until later. One popular decoder has 
three address input lines and eight 
mutually exclusive active-low outputs . 
In effect, if the three most significant 
address lines (A13-A15) are decoded, 
the eight outputs will divide the 64K 
memory address space into eight 8K 
blocks, with only one block enabled at 
a time. If you refer to figure 3, the 
signature DECODE*, working in con- 
junction with R/W* and Q, produces 
the latch enable signal STROBE*- 
(shown in proper time rlationship in 
figure 2). 

As a result of the unique combina- 
tion of signals, the circuit of figure 3 
will capture six of the eight bits of the 
data appearing on the data bus when 
STROBE* comes true. U2 will hold 
this data on its output pins until power 
fails or new data is written into the 
latch. In other words, the latch output 
can be considered as a "permanent" 
copy of the data that was available for 
only .6 f/Sec! 

If you have a question, or want to 
suggest a topic for discussion in this 
column, please write to me at P.O. Box 
545, Richardson, TX 75080. 



NOTE: ALL TIMES IN MICROSECONDS 
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Figure 2 (left): A basic timing diagram far the 6809 E microprocessor, show- 
ing the timing relationships during a WRITE cycle. The bottom wave form 
shows the timing response of the CMOS NOR gate U1 shown In figure 3. 

Figure 3 (below): One possible schematic diagram to Implement a data 
latch on the 6809E bus. ui generates the proper strobe to cause U2 to 
capture the data shown in figure 2. 
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That Open the Door to 





ter Future 



Kids of all ages are thrilling to our 
series of books that are virtual 
"open sesames" to basic 
understanding and use of all the 
most popular personal micro 
computers: KIDS & THE APPLE, KIDS 
& THE ATARI, KIDS AND THE VIC and 
KIDS AND THE T.I. (Texas 
Instruments). 

These fun-to-read books will 
prepare your children to take 
their place in the computer 
generation by solving the 
mysteries of their computer in 
ways they'll find interesting 
and fun! Thousands of copies 
are already being used by 
families (kids and adults), 
schools and computer clubs 
throughout the U.S. 

These marvelous books, 
authored by Ed Carlson, lead 
the reader gently, yet quickly, 
into the fascinating world of 
computers. Each is a large 
8 1 /2" x 11", spiral-bound book 
which can be opened flat 
easily. 33 chapters, each one 




$19.95 each at Book and Com- 
puter stores everywhere, or from: 



8943 Fullbright Avenue, 
Chatsworth, CA 91311 
(213) 709-1202 



building upon the knowledge 

gained in the previous— presenl 

scores of cartoons anc 

illustrations which amuse as the\ 

make important points easy tc 

understand 

There are even special section; 

at the beginning of each 

chapterfor parents and teacher: 

which aid in creating lessor 

plans and in helping the kid: 

over any rough spots 

But the reason kids of all ages reall\ 
love these books is that they're 
written to be truly easy tc 
understand— without confusing 
technical language that make; 
computers seem more complicatec 
than they really are. And the result; 
of their learning can be seen on- 
screen almost immediately 

The computer world is roaring towarc 

us. Make sure your children are 

prepared for the challenge. With oui 

books at their side, they'll enjov 

learning about computers, Anc 

you'll know you've helped open the 

door to their successful future 
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In Italy in the 15th century Leonardo Da Vinci was a multi- 
talented genuis. Leonardo's ideas and designs were endless*; 
He was always creating new devices to solve the worldls- 
: problems. Pictured here are many studies for military arnis 
.and armor and battlements. " ,*• * 

Today Vista is developing many high technology computer 
I peripherals for use with IBM™ and Apple Computers. 






The Vista 4oib/incorpbrar;e|*trie^^^ 

Shugart 1 ^ 5V*Driy^ To^t&^ugart-has QV^sfe'"*" 

units in opei [o^uMhe world. >/sj|fgjg|i 



mm 



Solo 




. . „, . . is also available as the SbloFlUs, , ^^GS^jne«WKh th^S 

f. Introducing Solo, a new cost effective solution to Apple Disk ^ controller. The pair gii?£ j^^^cbrft^^|M|^ 
storage offering all the capabilities of the standard Apple App|e hardware and software. W'«r$mk ~«*^^sa*-a*3!«s 



|Disk II at a fraction of the cost. 



pf your needs do not demand the high performance of our 
.jDuet, Quartet or V-Sferies Maxidrives, then Solo will provide 
|§|you with what you need at the lowest possible cost. 
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*<uqart Is a registered trademark of Shugart Associates.,, '.?\,i 
JJ'BM Is a registered trademark of International Business MachfnesV 

ppple II is a registered trademark of Apple Computer Co. 
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